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ABSTRACT 


The  Computer  Aided  Prototyping  System  (CAPS)  was  created  to  make  the  software 
development  cycle  more  efficient.  CAPS  provides  a  graphics  editor  and  a  syntax-directed 
editor  (SDE)  for  users  to  enter  prototypes’  specifications.  The  major  problem:  the  user  must 
have  a  good  knowledge  of  the  Prototyping  Systems  Description  Language  (PSDL) 
program  syntax  in  order  to  use  the  SDE.  Such  a  requirement  imposes  a  very  steep  learning 
curve  on  a  new  CAPS  user. 

The  challenge  was  to  minimize  the  time  a  user  needs  to  spend  in  order  to  complete  a 
development  without  extensive  knowledge  of  other  tools  like  PSDL  and  SDE. 

The  solution  is  to  redesign  and  implement  a  new  graphics  editor  to  allow  the  user  to 
enter  all  PSDL  specifications  via  graphics  editor  with  hierarchical  pull-down  menus.  The 
approach  taken  was  to  first  determine  where  to  start  and  what  type  of  language  and  graphic 
tools  should  be  used  in  combination  to  give  the  ultimate  results.  There  choices  were 
TAEplus,  Motif,  and  the  Idraw  firom  Stanford  University.  Idraw  was  chosen  because  of  its 
design,  capabilities,  and  user  fiiendliness. 

The  major  contribution  of  this  thesis  is  a  powerful  and  user  firiendly  graphics  editor  to 
rapidly  construct  a  prototype  of  a  large  real-time  system.  The  new  CAPS  graphics  editor 
has  been  evaluated  by  members  of  the  CAPS  user  group  and  early  feedback  shows  that  the 
new  editor  is  a  duly  usable  tool.  SDE  can  now  take  advantage  of  this  graphics  editor  to 
enhance  the  prototyping  capabilities  of  CAPS. 
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I.  INTRODUCTION 


A.  GENERAL 

The  purpose  of  this  thesis  is  to  design  and  build  a  better  graphics  editor  to  have  a 
friendly  editing  environment  for  Computer  Aided  Rapid  Prototyping  Systems  (CAPS)  to 
support  the  rapid  prototyping  of  hard  real  time  systems.  First,  explanation  is  needed  to  clear 
what  is  CAPS. 

The  Computer  Aided  Prototyping  System  (CAPS)  is  a  software  engineering 
environment  for  developing  prototypes  of  real-time  systems.  It  is  useful  for  requirements 
analysis,  feasibility  studies,  and  the  design  of  large  embedded  systems.  CAPS  is  based  on 
the  Prototyping  System  Description  Language  (PSDL)  [LBY88],  which  provides  facilities 
for  modeling,  timing,  and  control  constraints  within  a  software  system.  CAPS  is  a 
collection  of  tools,  implemented  in  the  form  of  an  integrated  environment,  linked  together 
by  a  user-interface.  CAPS  provides  the  following  kinds  of  support  to  the  prototype 
designer: 

•  timing  feasibility  checking  via  the  scheduler, 

•  consistency  checking  and  some  automated  assistance  for  project  planning, 
scheduling,  designer  task  assignment,  and  project  completion  date  estimation  via  the 
Evolution  Control  System, 

•  design  completion  via  the  editors,  and 

•  computer-aided  software  reuse  via  the  software  base. 

A  CAPS  prototype  is  initially  built  as  an  augmented  data  flow  diagram  and  a 
corresponding  PSDL  program.  The  CAPS  data  flow  diagram  and  PSDL  program  are 
augmented  with  timing  and  control  constraint  information.  This  timing  and  control 
constraint  information  is  used  to  model  the  functional  and  real-time  aspects  of  the 
prototype.  The  CAPS  environment  provides  all  of  the  necessary  tools  for  engineers  to 
quickly  develop,  analyze  and  refine  real-time  software  systems.  The  general  structure  of 
CAPS  is  shown  in  Figure  1. 
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As  Figure  1  indicates,  CAPS  is  a  collection  of  tools,  integrated  by  the  user- 
interface.  The  CAPS  User-Interface  provides  access  to  all  the  CAPS  tools  and  facilitates 
communication  between  tools  when  necessary.  The  tools  in  the  figure  are  grouped  into  four 
sections.  Editors,  Execution  Support,  Project  Control  and  Software  Base.  Each  CAPS  tool 
is  associated  with  a  different  aspect  of  the  CAPS  prototyping  process. 


CAPS  USER  MENU 


Figure  1.1:  The  CAPS  Development  Environment 

Rapid  prototyping  has  been  presented  as  an  alternative  paradigm  for  software 
development  and  evolution.  The  purpose  of  prototyping  is  ensure  that  proposed 
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requirements  and  system  concepts  adequately  match  the  needs  of  the  prospective  clients 
before  detailed  optimization  and  implementation  efforts  begin.  “Computer-aided  rapid 
prototyping  improves  the  efficiency  and  accuracy  of  evolutionary  development  by 
introducing  software  tools  that  assist  the  designer  in  constructing  and  executing  the 
prototype  quickly  and  systematically”  [LUQI89].  The  general  software  development  cycle 
with  respect  to  protot5rping  is  shown  in  Figure  2. 


Figure  1.2:  The  Prototyping  Process 

CAPS  is  specifically  designed  to  assist  and  partially  automate  the  development 
efforts  which  lie  in  the  shaded  regions  of  the  prototyping  process  figure.  Specifically,  based 
on  a  set  of  initial  requirements,  CAPS  allows  the  engineer  to  design,  modify,  demonstrate 
and  validate  a  software  system.  Through  this  process,  system  requirements  can  be  refined 
and  modified  as  necessary. 
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A  more  precise  description  of  the  CAPS  prototyping  process  can  be  found  in  the 
CAPS  tutorial  [BROC94],  and  is  repeated  here  for  the  convenience  of  the  readers.  The 
CAPS  prototyping  process  can  be  roughly  divided  into  10  steps  listed  below.  The  10 
enumerated  steps  are  accomplished  through  use  of  the  CAPS  tools. 

1)  Based  on  requirements,  design  (or  modify)  the  data  flow  diagram  for  the  system. 

2)  Assign  all  appropriate  timing  and  control  constraints  to  the  prototype  operators. 
Assign  latencies  to  data  streams  (if  required). 

3)  Assign  data  types  to  all  data  streams. 

4)  Find  (in  the  software  base)  or  build  an  implementation  module  for  each  user- 
defined  data  type  and  each  atomic  operator.  Modules  taken  from  the  software  base  can  be 
modified  after  retrieval  to  suit  individual  needs. 

5)  Build  the  prototype’s  user-interface  (if  required). 

6)  Translate  the  CAPS-generated  (and  user-augmented)  PSDL  program  into  (a 
portion  of)  the  Ada  supervisor  module. 

7)  Run  the  CAPS  scheduler  to  generate  the  static  and  dynamic  schedules.  This 
completes  the  prototype’s  Ada  supervisor  module. 

8)  Compile  the  prototype. 

9)  Execute,  evaluate  and  modify  (if  appropriate)  the  prototype  and/or  the 
requirements. 

10)  Return  to  Step  1  if  prototype  modification  is  required. 

B.  PROBLEM  STATEMENT 

CAPS  has  been  the  focus  of  research  efforts  for  several  years.  Many  different  parts 
of  CAPS  have  been  implemented  as  the  end  product  of  Masters’  thesis  over  the  years, 
during  different  stages  of  the  design  effort,  using  system  models  with  higher  level  of 
maturity  as  time  passes. 

The  focus  of  this  thesis  is  to  create  a  graphics  editor  that  allows  user  to  annotate  the 
graph  with  constraint  information  via  menus  and  buttons  graphically,  without  the  need  of 
editing  the  entire  PSDL  program  in  textual  form. 
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C.  SCOPE 

The  scope  of  this  thesis  was  originally  limited  to  complete  the  implementation  of 

the  last  versions  of  the  graphics  editor  to  handle  a  full-blown  PSDL  protot5^e  specification. 
After  researching  the  capabilities  of  the  graphics  editor,  it  became  apparent  that  some  of 
the  needed  functionality  that  was  included  in  the  CAPS92s’  graphics  editor  was  not 
implemented  in  the  CAPS93s’  graphics  editor. 

First  this  thesis  contains  the  research  to  find  out  what  version  of  the  graphics  editor 
should  be  upgraded  in  order  to  achieve  maximum  user  friendliness  and  to  take  advantage 
of  the  accompanying  syntax-directed  editing  feasibilities.  TTien  after  deciding  on  which 
version  should  be  upgraded,  the  other  capabilities  would  be  added. 

D.  ORGANIZATION  OF  THESIS 

Chapter  H  provides  the  background  of  CAPS.  Chapter  HI  describes  the  advantage 
and  disadvantages  of  each  graphics  editors’  environment  and  why  the  choice  of  upgrading 
the  CAPS92s’  graphics  editor  was  made  for  CAPS94  version.  Chapter  IV  covers  lack  of 
documentation  and  problems  encountered.  Chapter  V  is  the  user  manual,  and  Chapter  VI 
is  conclusions  and  recommendations. 
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n.  BACKGROUND 


A.  GENERAL 

The  Computer  Aided  Prototyping  System  (CAPS)  is  a  software  engineering 
environment  designed  to  take  specifications  expressed  in  the  Prototype  System  Description 
Language  (PSDL)  and  make  them  executable.  The  newest  version  of  CAPS  provides  an 
integrated  editing  environment  that  requires  the  user  to  manually  adjust  the  location  of  the 
bubbles,  labels,  streams,  and  variables,  and  to  enter  the  annotated  text  via  the  syntax 
directed  PSDL  editor.  It  is  desirable  to  the  CAPS  users  that  all  the  text  entries  adjustments 
and  modifications  be  done  graphically  via  hierarchy  menus. 

One  constraint  on  the  graphics  part  of  the  CAPS  is  that  it  must  be  implemented  in 
the  X  Window  system,  from  the  Massachusetts  Institute  of  Technology  (MIT).  This 
constraint  is  motivated  by  portability  concerns.  The  best  way  of  implementing  an  X 
Windows-based  graphics  editor  is  to  use  one  of  the  existing  toolkits. 

During  the  process  of  this  thesis  three  toolkits  were  evaluated: 

•  The  TAE  Plus(Transportable  Applications  Environments  Plus)  Ifrom  NASA. 

•  The  Motif  toolkit  from  Open  Software  Foundation. 

•  The  Interviews  toolkit  from  Stanford  University. 

This  chapter  provides  a  general  introduction  to  these  issues. 


B.  PROTOTYPING  SYSTEM  DESCRIPTION  LANGUAGE 

The  Prototyping  System  Description  Language  (PSDL)  is  a  text-based  language 
designed  to  express  the  specifications  of  real-time  systems.  It  is  based  on  a  graphic  model 
of  vertices  and  edges,  where  the  vertices  represent  operators,  or  software  process,  and  the 
edges  represent  the  conceptual  “flow”  of  data  from  one  operator  to  another.  Each  vertex 
and  edge  may  have  associated  timing  constraint,  and  the  vertices  may  have  associated 
control  constraints. 

Formally,  the  model  used  is  that  of  an  augmented  graph. 
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G  =  (V,E,T(v),C(v)) 

where  G  is  the  graph,  V  is  the  set  of  vertices,  E  is  the  set  of  edges,  T(v)  represents 
the  timing  constraints  for  the  vertices,  and  C(v)  represents  the  control  constraints  for  the 
vertices  [LUQI88]. 

Conceptually,  PSDL  operators  may  contain  other  operators  to  support  the  principle 
of  abstraction.  An  atomic  operator  is  one  that  is  implemented  in  a  prograrmning  language, 
vice  a  composite  operator  consisting  of  other  operators  and  streams. 

For  example,  the  following  diagram  shows  a  PSDL  prototype: 


Figure  2.1:  Example  of  PSDL  Graph 

This  graph  represents  an  operation  modelled  by  the  Operator  X  that  accepts  one 
item  from  Stream  A,  it  performs  some  operation  on  the  data,  and  outputs  Stream  B.  The 
Maximum  Execution  Time  (MET),  this  is  the  maximum  possible  time  the  operator  may 
take  to  execute  the  task,  defined  as  600  milliseconds. 

In  this  example.  Operator  X  is  decomposed  as  follows: 
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Figure  2.2;  Decomposed  PSDL  Graph 

Operator  X  is  a  composite  operator,  while  Operator  XI  and  Operator  X2  are  atomic 
operators,  implemented  in  Ada  or  some  other  language.  The  timing  and  control  constraints 
on  these  atomic  operators  must  be  consistent  with  diose  of  their  parent  operator.  In  a  single 
processor  architecture,  the  combined  METs  of  these  atomic  operators  can  not  be  greater 
than  their  parent.  Operator  X  is  really  not  needed  to  implement  the  protot5^e.  It  serves 
merely  to  abstract  the  functionality  of  its  child  operators. 

A  more  detailed  description  of  the  PSDL  can  be  found  in  [LUQI88]  and  [LUQI89]. 

C.  THE  COMPUTER  AIDED  PROTOTYPING  SYSTEM 

The  Computer  Aided  Prototyping  System  (CAPS)  is  a  set  of  software  tools  that 
provides  the  environment  to  rapidly  build  and  execute  a  prototype.  The  designer  of  a 
software  system  uses  a  graphics  editor  to  create  a  graphic  representation  of  the  proposed 
system.  The  graphic  representation  is  used  to  generate  part  of  an  executable  description  of 
the  proposed  system,  represented  in  the  protyping  language.  Tltis  description  is  used  to 
search  a  database  of  reusable  software  components  to  find  components  to  match  the 
specification  of  the  prototype.  A  transformation  schema  is  used  to  transform  the  prototype 
into  a  programming  language.  The  prototype  is  then  compiled  and  executed.  The  end  user 
of  the  proposed  system  will  evaluate  the  prototype’s  behavior  against  the  expected 
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behavior.  If  the  comparison  results  are  not  satisfactory,  the  designer  will  modify  the 
prototype  and  the  user  will  evaluate  the  prototype  again.  This  process  will  continue  until 
the  user  agrees  that  the  prototype  meets  the  requirements.  The  software  designer  would  be 
able  to  see  whether  the  PSDL  prototype  was  logically  consistent  and  semantically  and 
syntactically  correct.  It  would  also  allow  the  designer  to  verify  whether  the  assigned 
constraints  were  achievable,  or  whether  either  looser  constraints  or  a  more  efficient 
implementation  were  required. 

The  CAPS  was  created  with  these  goals  in  mind[LUQI88].  It  is  designed  to  provide 
the  following  features  to  the  user: 

•  automated  support  for  PSDL  text  editing 

•  a  drawing  editor  for  PSDL  graphs 

•  generation  of  schedules  and  control  code 

•  a  run-time  environment  to  monitor  the  execution  of  prototype 

•  a  data  base  of  reusable  components  for  implementing  atomic  operators 

•  a  sophisticated  engineering  data  base  for  managing  prototypes 

D.  INTER VIEWSrA  USER  INTERFACE  TOOLKIT 

Interviews  is  a  C-H-  graphical  interface  toolkit  developed  at  Stanford 
University[STAN91].  It  includes  a  library  of  predefined  interactive  objects.  These  objects 
can  be  combined  to  construct  many  types  of  user  interfaces.  Interviews’  object  oriented 
approach  provides  a  natural  way  to  build  user  interfaces  as  communicating  objects. 

Interviews  runs  on  the  top  of  X  Windows.  X  Window  system  was  developed  to: 

•  Solve  a  common  problem  in  large  computer  networks. 

•  It  was  also  invented  to  combine  graphics  and  text  easily. 

•  Display  graphics  on  many  different  hardware  platforms. 

In  the  X  Window  System,  a  program  is  logically  separated  fi-om  the  physical 
display  that  shows  its  output.  The  program  is  called  a  client,  while  the  physical  unit  is  called 
a  server. 
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Interviews  provides  three  classes  of  objects:  interactors,  graphics,  and  text.  An 
interactor  class  manages  some  area  of  potential  input  and  output  on  a  workstation  display. 
All  user  interface  objects  are  inherited  from  this  class.  Example  of  interactors  are  bottons, 
menus,  and  dialogue  boxes.  Figure  2.3  shows  the  hierarchial  structure  of  the  interactor 
class. 


Figure  23:  Interactor  Class  Hierarchy 

The  graphics  class  defines  structured  graphics  objects.  Objects  in  this  class  can 
draw  and  erase  themselves.  A  state  attached  to  each  object  which  includes  attributes  of 
color,  line  style,  and  coordinate  transformation.  Figure  2.4  shows  the  hierarchical  structure 
of  the  graphics  class. 
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Figure  2.4:  Graphics  Class  Hierarchy 

The  text  class  defines  stnictured  text  objects  like  strings,  text  editors,  and  text 
buffers. 

E.  IDRAW:  INTERVIEWS  DRAWING  EDITOR 

John  Vlissides  who  is  the  author  of  Idraw  and  Unidraw,  used  to  work  for  Stanford 
University,  and  at  the  present  time  he  is  working  for  IBM.  He  used  the  Interviews  toolkit 
to  create  a  higher-level  toolkit  designed  for  the  creation  of  domain-specific  graphics 
editors[VLIS89].  By  using  a  standard  set  of  atomic  and  composite  tools,  Idraw  is  capable 
of  creating  an  extremely  complex  graphics  editor  with  a  minimum  of  source  code. 

Idraw  is  an  object  oriented  drawing  editor  provided  with  Interviews.  Idraw 
provides  immediate  feedback  as  the  user  creates  and  implements  graphic  objects  such  as 
circles,  squares,  ellipses,  lines,  and  splines.  A  picture  of  Idraw  (Interviews’  Drawing 
Editor)  is  shown  in  Figure  2.5.  Idraw’s  user  interface  is  composed  of  Interviews’  interactor 
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and  graphics  classes.  It  contains  a  set  of  tools  on  the  left  side  of  the  editor  and  a  set  of  pull 
down  menus  along  the  top.  The  tools  are  used  to  create  the  graphic  objects  or  to  change  the 
user’s  view  of  the  drawing.  In  order  to  change  a  graphic  object’s  attributes,  the  menus  must 
be  used. 
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Figure  2.5:  Idraw:  Interviews  Drawing  Editor 
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Idraw  allows  the  user  to  create  the  following  objects: 

•  line 

•  multi  line 

•  open  spline 

•  rectangle 

•  ellipse 

•  closed  spline 

•  polygon 

•  text 

Once  drawn,  these  objects  can  be  moved,  scaled,  stretched,  or  rehashed.  Any  part 
of  the  drawing  can  be  modified.  Various  standard  editing  functions,  such  as  printing  a 
drawing,  saving  a  drawing,  and  deleting  an  object,  are  provided.  Certain  attributes  of  the 
editor,  such  as  font  types,  brush  type,  pattern,  and  foreground  and  background  color  can  be 
customized  by  setting  X  resources.  These  customizations  are  stored  with  the  drawing  so  not 
only  can  be  restored  when  the  drawing  is  edited,  but  also  they  are  easily  retrieved  or 
transported.  The  drawings  are  stored  in  a  modified  PostScript  format. 

F.  MOTIF 

Another  toolkit  available  for  X-Window  user  interface  is  the  Open  Software 
Foundation’s  Motif  toolkit.  The  Open  Software  Foundation  (OSF)  is  a  consortium  of 
companies  including  Hewlett-Packard,  Digital  Equipment  Corporation,  IBM,  and  others, 
whose  main  business  is  to  enhance  the  interoperability  between  computers  of  different 
manufacturers. 

Motif  is  a  lower-level  toolkit  than  Interviews,  providing  user  interface  objects 
known  as  widgets  with  a  specific  appearance  and  function.  The  programming  environment 
provided  by  Motif  is  commonly  a  mix  between  native  X,  an  intermediate  level  known  as 
Xt  Intrinsics,  and  higher-level  Motif.  The  Programmer  can  thus  use  the  pre-defined  Motif 
objects  to  provide  a  user  interface  with  a  highly  standardized  appearance,  while  at  the  same 
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time  having  access  to  low-level  X  functions  to  implement  more  specific  control  over  the 
application. 

The  Motif  environment  is  highly  dependent  on  external  configuration  options 
known  as  resources  that  allow  the  installed  site  and  the  user  a  great  deal  of  control  over  the 
appearance  and  functioning  of  Motif  programs.  K  the  programmer  so  desires,  almost  every 
aspect  of  a  Motif  program  from  the  color  to  menu  options  to  fonts  can  be  configured  in 
resource  files,  allowing  the  users  extreme  flexibility  in  the  appearance  and  function  of  a 
program.  Resources  are  modified  by  editing  simple  text  strings,  without  the  need  to 
recompile  the  original  source  code[HELL91]. 

G.  TAE  PLUS 

The  TAE  Plus  architecture  is  an  extension  of  the  original  TAE  application 
management  system,  called  “TAE  Classic.”  TAE  Classic  is  based  on  a  total  separation  of 
the  user  interaction  where  all  user  dialogue  is  directed  through  an  application  executive, 
called  the  Terminal  Monitor  (TM).  This  central  control  of  the  user  interface  provides  a 
consistent  look  and  feel  across  an  application  but  is  limited  to  ASCII  (alphanumeric) 
terminals. 

The  advent  of  graphic  workstations  led  to  the  development  of  more  elaborate  user 
interface  and  a  closer  relationship  between  the  application  and  the  user  interface.  This  often 
complicated  development  efforts  and  particularly  the  porting  of  applications  to  different 
hardware  platforms.  TAE  Plus  addresses  the  needs  of  the  application  developer  of 
graphical  user  interfaces  by  providing  an  effective  and  portable  mechanism  for  separating 
the  interface  and  application  as  much  as  possible. 

The  current  release  of  TAE  Plus  is  designed  to  be  portable  across  a  wide  range  of 
machines  and  operating  systems.  TAE  Plus  is  designed  to  run  on  UNIX  and  DEC  VMS 
systems  that  support  the  X  Window  System.  The  user  interface  looks  and  feel  is  based  on 
the  Open  Software  Foundation’s  Motif  specification  for  graphical  user  interface. 

The  TAE  Plus  WorkBench  is  a  development  tool  that  supports  the  interactive 
design  and  layout  of  graphical  user  interfaces.  The  major  elements  of  a  user  interface  are 
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“panels”  and  “interaction  items.”  TAE  Plus  initial  WorkBench  file  selection  menu  is  shown 
in  Figure  2.6  below,  and  the  actual  TAE  Plus  WorkBench  is  shown  on  Figure  2.7. 


Figure  2.6:  TAE  Plus  WorkBench  file  Selection  Menu 

A  TAE  Plus  panel  is  similar  to  an  individual  X  window,  and  is  used  to  hold  a 
collection  of  interaction  items,  as  it  can  be  seen  in  TAE  Plus  WorkBench  below. 
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Figure  1,1  \  TAE  Plus  WorkBench 

TAE  Plus  interaction  items  receive  information  from,  and  display  information  to, 
the  user.  They  include  such  objects  as  buttons,  scrolling  lists,  pulldown  menus,  text  input 
fields,  and  dials.  With  the  WorkBench,  a  user  interface  developer  can: 

•  Define,  resize,  move,  copy,  and  set  the  display  attributes  and  default  values  of 
interaction  items  and  panels. 

•  Define  user  interface  connections  that  associate  the  user  selection  of  an  interaction 
item,  such  as  button,  with  a  change  in  state  of  that  button’s  panel  and/or  a  change  in  state 
of  another  panel. 

•  Rehearse  a  user  interface,  trying  out  defined  connections,  and  reviewing  the  look 
and  feel  of  the  interface  from  the  end  user’s  perspective. 

•  Generate  application  code  that  displays  and  controls  the  designed  user  interface. 

•  Save  the  user  interface  separately  from  the  application  code  in  a  TAE  Plus 
resource  file. 

•  Modify  an  existing  user  interface,  with  few  or  no  changes  required  to  the 
application  code. 

So  after  investigating  the  prospects  of  using  TAE  Plus  for  CAPS  graphics  editor, 
and  testing  the  TAE  Plus,  1  noticed  that  they  use  the  Interviews’  Idraw  for  their  graphics 
editor.  Figure  2.8  shows  the  TAE  Plus’s  graphics  editor.  So,  concluded  that  this  is  not  the 
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right  choice.  TAE  Plus  is  a  very  powerful  tool  to  make  interfaces,  but  not  creating  a 
graphics  editor  for  CAPS  purpose.  On  the  other  hand  it  is  obvious  that  because  TAE  Plus 
is  using  Interviews’  Idraw  for  their  graphics  editor,  Idraw  must  be  a  powerful  tool. 


Figure  2.8:  TAE  Plus’s  Graphics  Editor 
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ra.  DESIGN  OF  THE  CAPS’94  GRAPHICS  EDITOR 


A.  INTRODUCTION 

As  stated  in  the  introduction,  the  focus  of  this  thesis  is  the  Graphics  Editor,  which 
is  the  user  interface  for  building  prototypes.  The  existing  graphics  editors  of  versions 
CAPS92  and  CAPS93  are  completely  different  CAPS92  used  the  Interviews’  Idraw  for  a 
base  [CUMM90].  In  CAPS93’s  a  generic  text  editor  based  on  the  Motif  toolkit  is  used  to 
edit  all  the  PSDL  functions  [DIX092]. 

B,  CAPS92  GRAPHICS  EDITOR 

In  CAPS92,  Interviews’  Idraw  was  chosen  as  the  graphics  editor  tool  because  of  its 
powerful  graphics.  Postscript  output  editing  capabilities,  object  oriented  representation, 
and  ease  of  use.  It  also  provides  a  variety  of  fonts,  colors,  brush  types  and  patterns  to 
enhance  the  drawing.  The  following  is  an  object  oriented  analysis  of  the  Idraw. 

Class  Idraw 

Idraw  is  the  main  class  of  the  editor.  It  opens  a  given  drawing  file,  if  any,  creates 
the  editor  on  the  screen,  and  calls  the  event  handler.  Run,  to  process  the  user’s  action  until 
the  user  chooses  to  terminate  the  editor. 

Idraw  depends  on  several  classes.  A  diagram  of  these  dependencies  is  shown  in 
Figure  3.1.  TTie  class  hierarchy  is  as  follows: 

Class  Idraw 

Behavior:  Displays  a  drawing  editor. 

Set  of  Attributes: 

initial_drawing:  Name  of  drawing  file  to  edit, 

cmds :  Commands:  Display  a  pull  down  menu  bar  which 

contains  many  puU  down  menus. 
Performs  operations  on  the  drawing. 
Displays  drawing. 


drawing :  Drawing: 
drawing :  DrawingView: 
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editor :  Editor: 
mapkey :  MapKey: 
panner :  Fanner: 
state :  State: 

stateview :  State  View: 
tools :  Tools: 
operations: 

Idraw: 

Run: 


Handles  drawing  and  editing  operations. 
Maps  characters  to  Interactors, 
pans  and  zooms  drawing. 

Stores  cuirent  state  information  about 
drawing. 

Displays  current  state  information. 
Displays  drawing  Tools. 

Parses  command  line  arguments, 
initializes  attributes,  and  displays  editor. 
Opens  drawing  file,  and  processes  user’s 
choices  until  the  editor  is  terminated. 


Figure  3.1:  Idraw  Dependency  Diagram 
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Class  Commands 

Commands  provides  over  100  traditional  editing  commands.  It  is  displaying  as  a 
menu  bar  containing  a  collection  of  pull  down  menus  referenced  by  the  title  of  the  menu. 
The  following  groups  of  editing  functions  are  represented  by  the  menus: 

File;  Presents  file  operations  such  as  opening  file,  saving  a 

file,  and  printing  a  file. 

Edit:  Presents  editing  operations  such  as  deleting  a  selected 

object,  cutting  an  object  from  the  drawing,  and  pasting  a 
cut  object  in  the  drawing. 

Structure:  Presents  operations  to  change  the  way  objects  are 

structured  together  such  as  grouping  selected  objects 
together,  bringing  an  object  to  the  firont  of  the  group,  and 
sending  an  object  to  the  back  of  the  group. 

Font:  Presents  a  list  of  fonts  to  be  used  for  the  text  in  the 

drawing. 

Brush:  Presents  various  types  of  brushes  such  as  solid  lines, 

dashed  lines,  and  directed  lines  anchored  at  one  end. 

Pattern:  Presents  a  list  of  patterns  for  the  selected  graphic  objects. 

Color:  Presents  a  list  of  foreground  and  background  colors  for 

the  selected  graphic  objects. 

Align:  Presents  various  alignment  options  such  as  aligning  left 

sides  of  selected  objects,  and  aligning  centers  of  selected 
objects. 

Options:  Presents  various  options  to  aid  in  putting  the  drawing  on 

the  page,  such  as  reducing  a  drawing  to  fit  on  one  page, 
centering  a  drawing  to  the  page,  and  providing  a  grid. 


21 


Class  Drawing 

The  Drawing  contains  the  internal  representation  of  the  picture.  The  user’s  drawing 
is  stored  as  a  linked  list  of  graphics  objects.  The  interface  to  modify  the  objects  is  also 
provided.  Drawing  depends  on  two  classes: 

PictSelection:  Linked  list  of  objects  in  drawing. 

SelectionList:  Linked  list  of  those  objects  to  be  modified  by  a  command 

or  tool. 

Class  DrawingView 

The  DrawingView  provides  the  user’s  view  of  the  drawing.  It  is  responsible  for 
everything  drawn  on  the  screen. 

Class  Editor 

The  Editor  performs  the  operation  selected  by  the  user  for  the  given  tool  or 
command.  It  uses  Drawing  to  modify  the  internal  representation  of  the  drawing  when 
needed. 

Class  MapKey 

Each  of  the  tools  and  commands  can  be  executed  by  typing  a  letter  as  a  shortcut  to 
clicking  with  the  mouse.  MapKey  maps  the  letter  to  the  tool  or  command  desired.  It  stores 
all  of  the  tools  and  commands  in  a  table  indexed  by  the  shortcut  letter. 

Class  Fanner 

The  Fanner  is  used  to  pan  and  zoom  the  drawing  in  order  to  view  the  drawing  close 
up  or  farther  away; 

Class  FictSelection 

Drawing  stores  all  of  the  graphic  objects  drawn  on  the  screen  in  picture,  an  instance 
of  the  FictSelection  class.  Each  object  is  an  instance  of  a  class  inherited  from  the  class 
Selection.  Selection  is  inherited  from  the  Interviews  Graphic  class.  FictSelection  is 
inherited  from  Selection  and  is  a  linked  list  of  all  the  Selections  in  the  drawing.  The 
Selection  inheritance  hierarchy  is  shown  in  Figure  3.2.  The  NFtSelection,  also  shown  in 
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the  figure,  is  a  special  type  of  graphic  object  that  can  draw  arrowheads  on  one  or  both  of  its 
endpoints. 

Class  SelectionList 

The  SelectionList  contains  a  subset  of  the  Selections  in  the  drawing.  It  is  a  linked 
list  of  only  those  Selections  chosen  by  a  drawing  tool  or  editing  command. 

Class  State 

The  State  stores  state  information  about  the  user’s  drawing  and  paint  attributes  to 
be  used  when  creating  new  graphic  objects.  Some  of  the  information  stored  are  the  brush 
type,  drawing  name,  font,  and  pattern. 


Figure  3.2:  Selection  Hierarchy 

Class  StateView 

Idraw  keeps  track  of  and  displays  current  state  information.  The  kinds  of 
information  displayed  are: 

•  current  brush  type 
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•  name  of  current  drawing 

•  current  font 

•  status  of  gridding 

•  magnification  percentage 

•  current  modification  status  of  drawing 

•  current  pattern 

Each  piece  of  information  is  a  separate  object  and  inherited  from  State  View.  The 
State  View  hierarchy  is  shown  in  Figure  3.3  below. 


Figure  3.3:  State  View  Hierarchy 

Class  Tools 

Tools  creates  the  panel  that  displays  the  drawing  tools  to  the  user.  These  drawing 
tools  are: 

•  Select  one  or  more  graphic  objects. 

•  Move  the  selected  objects  to  another  location  on  the  screen. 

•  Scale  the  selected  objects. 

•  Stretch  the  selected  objects. 

•  Rotate  the  selected  objects. 

•  Reshape  the  selected  objects. 
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•  Magnify  the  selected  objects. 

•  Add  text  to  the  drawing. 

•  Draw  a  line. 

•  Draw  a  multiline. 

•  Draw  an  open  spline. 

•  Draw  an  ellipse. 

•  Draw  a  rectangle. 

•  Draw  a  polygon. 

•  Draw  a  closed  spline. 

The  panel  created  by  Tools  is  made  up  of  panel  items  known  as  IdrawTools.  Each 
of  the  Tools  functions  is  represented  by  a  class  inherited  from  IdrawTool.  Figure  3.4 
shows  hierarchy  of  these  tools. 


Figure  3.4:  IdrawTool  Hierarchy 


CAPS92  graphics  editor  was  accomplished  by  making  some  major  changes  to  the 
existing  Idraw  codes.  The  following  is  the  list  of  the  major  changes  to  Idraw  to  construct 
the  graphics  editor: 

•  Present  Prototype  Names  To  The  User. 

•  Remove  Unused  Commands  and  Tools. 

•  Add  Internal  Representation  of  DFD. 

•  Modify  Existing  Commands  and  Tools. 

•  Add  New  Tools. 

•  Add  Ability  to  Rebuild  DFD  Data  Structure. 

•  Add  Message  Block. 

Detailed  information  can  be  found  in  Mary  Ann  Cummings’  thesis  on  The 
Development  of  User  Interface  Tools  for  CAPS,  [CUMM90]. 

C.  CAPS93  GRAPHICS  EDITOR 

Motif  was  used  for  creation  of  CAPS 93 s’  graphics  editor  and  was  developed  by  the 
Open  Software  Foundation  (OSF),  an  industry  consortium  that  includes  Digital  Equipment 
Corp.,  Hewlett-Packard,  and  IBM.  Motif  actually  refers  to  any  one  of  the  following: 

•  A  look-and-feel  Style  Guide  for  applications,  based  on  IBM’s  Common  User 
Access  (CUA)  guidelines,  which  are  also  implemented  in  OS/2  and  Microsoft  Windows. 

•  A  window  manager,  mwm,  to  help  enforce  the  Style  Guide. 

•  A  User  Interface  Language  (UIL)  interpreter,  which  places  much  of  the  user 
interface  code  into  interpreted  files. 

•  A  toolkit  (C  library)  for  building  style  Guide-compliant  applications,  also  called 
a  widget  set.  This  toolkit  is  based  on  the  Xt  Intrinsics,  as  are  other  toolkits  like  the  Athena 
widgets  and  OLIT. 

Motif  allows  you  to  create  programs  with  a  graphical-user  interface  that  can  run  on 
a  wide  variety  of  computer  platforms,  including  systems  from  Sun  Microsystems,  Hewlett- 
Packard,  IBM,  Silicon  Graphics,  DEC,  and  a  slew  of  clone  vendors  who  support  UNIX  on 
the  386/486/Pentium  architectures. 
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There  are  a  number  of  reasons  why  we  might  want  to  use  the  Motif  toolkit: 

•  Motif  is  one  of  the  major  interface  standards  in  the  UNIX  world. 

•  Motif  was  adopted  as  part  of  the  Common  Open  Software  Environment,  or  COSE, 
led  by  IBM,  Hewlett-Packard,  Sun,  SCO,  Univel,  and  UNIX  System  Laboratories. 

•  OSF/Motif  compliance  is  needed  for  selling  to  many  big  firms  and  organizations. 

•  Using  an  X  tooUdt-any  X  toolkit-  speeds  programming. 

•  Motif  provides  nice-looking  3D  effects. 

•  Motif  fits  in  reasonably  well  with  X  standards  with  the  user  of  window  managers 
and  resource  files. 

•  Motif  also  is  part  of  some  of  the  newer  trends  in  software  design  and  development. 
Included  in  this  trend  is  the  notion  of  EVENT-DRIVEN  programming. 

The  CAPS  93 ’s  graphics  editor  was  intended  to  implement  some  very  specific 
behavior  that  is  not  directly  available  under  Interviews,  for  example  the  UNDO  function 
to  undo  the  recent  changes  before  saving  the  prototype. 

Motif  gives  the  simple  capabilities  of  drawing  circles,  lines,  and  rectangles,  but  it  is 
not  a  graphics  editor.  The  capabilities  that  is  needed  and  it  is  not  included  in  CAPS  93 ’s 
graphics  editor,  they  exist  in  CAPS92s’  graphics  editor.  These  capabilities  requires  a  lot  of 
programming  time  and  are  as  follows: 

•  Reduce  to  fit 

•  Redraw  and  Center  page 

•  Grouping  of  objects 

•  Moving  groups  of  objects 

•  Different  brush  style 

•  Delete  an  object  or  group  of  objects 

•  Select  All 

Idraw  is  an  ideal  tool,  it  has  all  the  needed  capabilities  to  handle  all  the  graphic 
needs  of  CAPS.  CAPS92s’  graphics  editor  is  well  capable  of  many  needed  functionality  for 
manipulating  prototypes  data. 
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D.  CONCLUSION  OF  GRAPHICS  EDITOR  CHOICE 

After  extensive  investigation  and  evaluation,  the  choice  is  clear.  Upgrading  the 
CAPS92s’  graphics  editor  to  give  the  needed  capabilities  gives  a  more  capable  graphics 
editor  to  the  users  of  CAPS.  Idraw  will  provide  much  of  the  complicated  required 
functionality  that  is  needed.  This  will  save  lots  of  programming  time.  Reusing  existing 
codes  is  one  of  the  most  important  part  of  Software  Engineering.  By  using  the  existing 
codes  of  Idraw  which  is  a  good  and  bug  free  code  will  save  lots  of  time. 

E.  DESIGN  CHOICES  OF  THE  GRAPHICS  EDITOR 

The  CAPS94  graphics  editor  will  have  an  extra  menu  bar  button  by  the  name  of 
Property.  Property  will  be  consisted  of  the  following  menu  buttons: 

•  Constraint  by. 

•  Stream. 

•  Operator  Specification. 

Constraint  by  is  a  menu  button  which  consists  of  others  command  buttons  and  menu 
buttons.  The  difference  between  the  command  buttons  and  menu  buttons  is:  the  menu 
buttons  will  present  the  user  with  more  command  buttons,  while  the  command  buttons  will 
activate  a  procedure  to  handle  the  required  actions.  Under  Constraint  by  menu  the 
command  buttons  are: 

•  Output  Gaurd. 

•  Exception  Condition. 

And  the  menu  buttons  are: 

•  Trigger. 

•  Finish  Within. 

•  Minimum  Calling  Period. 

•  Maximum  Response  Time. 

•  Period. 

•  Timer  operator. 

Stream  button  will  activate  a  command  button  and  a  menu  button  and  they  are: 
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•  Label  button. 

•  Latency  menu. 

Label  button  activates  a  procedure  which  gives  the  capability  to  enter  labels  for  the 
operators  and  the  streams  (vertices  and  edges).  Latency  menu  will  activate  another  menu 
with  five  command  buttons.  These  buttons  are  the  units  of  time  that  a  stream  (edge)  may 
have  to  enter  the  time  and  they  are: 

1.  Hour. 

2.  Minute. 

3.  Second. 

4.  Millisecond. 

5.  Microsecond. 

Operator  Specification  menu  consists  of  five  command  buttons  and  three  menu 
buttons.  The  command  buttons  are: 

•  Key  Words. 

•  States. 

•  Informal. 

•  Formal. 

•  Exception_Declaration 
And  the  menu  buttons  are: 

•  Generic. 

•  Input. 

•  Output. 

•MET.  • 

Key  Words,  States,  Informal,  Formal,  and  the  Exception_Declaration  will  activate 
the  related  procedures  for  proper  actions.  Generic,  Input,  and  Output  menu  buttons  will 
activate  another  menu  with  four  choices  of  data  types  and  they  are: 

1.  integer. 

2.  real. 

3.  boolean. 
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4.  user  defined. 

MET  menu  button  will  give  the  user  five  choices  of  time  units  and  they  are: 

1.  Hour. 

2.  Minute. 

3.  Second. 

4.  Millisecond. 

5.  Microsecond. 

F.  DATA  STRUCTURE 

It  is  possible  to  use  the  existing  data  stracture  of  CAPS92,  and  expand  it  to  meet 
PSDL’s  grammer  requirements.  The  existing  data  structure  is  as  follows: 

OperatorSelList  is  doubly  linked  list  of  OperatorSelNode.  OperatorSelNode’s 
internal  pointer  points  to  the  Class  OperatorSelection.  Class  OperatorSelection  is  the 
following: 

class  OperatorSelection  { 
public: 

OperatorSelection( EllipseSelection*) ; 

~OperatorSelection( ); 

void  SetEllipseSelection( EllipseSelection*); 

EllipseSelection*  GetEllipseSelection( ); 
void  SetTextSelection(TextSelection*); 

TextSelection*  GetTextSelection( ); 
void  SetMETSelection(TextSelection*); 

TextSelection*  GetMETSelection( ); 

void  InputDataFlowSplineAppend(DFDSplineSelN ode*); 

void  OutputDataFlowSplineAppend(DFDSplineSelNode*); 

void  SelfLoopAppend(DFDSplineSelNode*); 

char*  FindSplineInList(TextSelection* ,  BSplineSelection*); 

DFDSplineSelList*  GetInputDFSplineList( ); 
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DFDSplineSelList*  GetOutputDFSplineList(); 

DFDSplineSelList*  GetSelfLoopList( ); 

boolean  FomdSplineInLists(BSplineSelection*,BSplineSelection*); 
boolean  FoundSelfLoopInList(BSplineSelection*,  BSplineSelection*); 
char*  FoundT extInLists(TextSelection* ,  TextSelection*); 
void  FoundSecondTextlnListslckar* ,  TextSelection*); 
char*  GetPSDLTextO; 

boolean  FindSplinelnSecondList(chaf* ,  char*,  BSplineSelection*); 
void  SetPSDLText(char*); 

boolean  AddLatencyT oSplinel nList(TextSelection* ,  BSplineSelection*) ; 
voidRemoveInputFromPSDL(TextSelection*); 
voidRemoveOutputFromPSDL(TextSelection*); 
voidRemoveStateFromPSDI^TextSelection*); 
void  Setld(int); 
int  Getld( ); 

protected; 

void  AddOperatorldT oPSDL(  char*); 

void  AddInputToPSDL( ); 

void  AddOutputToPSDL( ); 

void  ReplaceInputStringInPSDL(char*,  char*); 

void  ReplaceOutputStringInPSDL(char*,  char*); 

int  FiruUndex( char**,  int); 

void  ReplaceStateStringInPSDL(char* ,  char*); 

void  AddStateToPSDL(); 

void  AddMt'l  l  oPSDL(T extSelection*) ; 


int  opid; 

EllipseSelection*  elsel; 
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.//  operator  drawn  in  DFD 


TextBuffer*  txb; . //  buffer  containing  P§DL 

TextSelection*  txtsel; . //  operator’s  label 

TextSelection*  metsel; . //  operator’s  MET 

DFDSplineSelList*  input_df_splinejist;  //  list  of  input  data 
//  flow  splines 

DFDSplineSelList*  output _df_spline_list;  //  list  of  output  data 
//  flow  splines 

DFDSplineSelList*  self  loop _list;  //  list  of  self  loops 


inline  void  OperatorSelection:  :SetId(int  id)  { 
opid  =  id; 

} 

The  same  procedures  can  be  used  with  different  names  to  process  the  additional 
needed  PSDL’s  data.  For  example  for  adding  TrrigerByAU  the  following  may  be  added  to 
the  protected  part  of  this  class  as  follow: 

void  AddTriggerByAllPSDL  (  TextSelection  *); 

TextSelection  *  triggerByAllsel ; . Iloperatore’s  Trriger  By  All 

Also  the  data  flow  diagram  of  CAPS  92  can  be  expanded  to  meet  the  additional 
PSDL  grammar  that  is  necessary  for  complition  of  CAPS  ’graphics  editor.  The  existing  data 
flow  diagram  is: 

//  keywords  to  be  inserted  when  creating  PSDL 
#dffine  OPER  TKN  “OPERATOR  “ 

#define  SPECJKN  “  SPECIFICATION^’’ 

#dffine  INPUT _TKN  “  INPUJ\n’’ 

ltdefine  OUTPUT JKN  “  OUTPUDn’ 

#dffine  ST_TKN  “  STATES\n  UNDEFINED  ID  :  UNDEFINED  JYPE\n 
INITIALLY  UNDEFINED _EXPRESSION\n’’ 

ltdefine  METJKN  “  MAXIMUM  EXECUTION  TIME  “ 
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“  DESCRIPTION  “ 

‘Y  UNDEFINED  JEKT  }\n" 
“  END\n 

“  IMPLEMENTATION\n 
‘  GRAPH\n 

“  EDGE  " 

UNDEFINED  ID" 


#defineDESCJ'KN 
^define  TEXTJKN 
#define  ENDJKN 
#defineIMP_TKN 
UdefineGRTKN 
Udefine  VERTKN 
Udefine  EDGETKN 
#define  IDJKN 
itdifine  EXTTKN  “  EXTERNAL" 

Udefine  TYPE_DECL_TKN  “  UNDEFINED  JD  :  UNDEFINED  JYPE’ 
#define  IMP _AD A  TKN  "  IMPLEMENTATION  ADA  " 

#d^ne  STREAM  TKN  “  DATA  STREAMKn" 

#define  CON  TKN  “  CONTROL  CONSTRAINTS\n" 

^define  CONJDPJKN  “  OPERATOR  UNDEFINED  JD\n" 


1 1  keywords  to  be  used  for  search  through  PSDL  text  buffer.  They  are 
II  different  from  those  above  because  the  text  biffer  cant  ever  locate 
II  newlines 

Udffine  INPUT _SCH  TKN  “INPUT’ 

Udefine  SPEC  JCH  TKN  “SPECIFICATION" 

#define  OUTPUT  JCH JKN  “OUTPUT’ 

Udffine  GEN  JCH  TKN  “GENERIC" 

Udefine  STATES  JCH  JKN  “STATES" 

Udefine  EXCEPT  JCH  JKN  “EXCEPTIONS" 

Udefine  MET  JCH  JKN  “MAXIMUM  EXECUTION  TIME  “ 
Udefine  MCPJCHJKN  “MINIMUM  CALUNG  PERIOD" 

Udefine  MET  JCH  JKN  “MAXIMUM  RESPONSE  TIME" 
UdefineKEYJCHJKN  “KEYWORDS" 
if  define  DESC JCH  JKN  “DESCRIPTION" 
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#defineAXJCHJKN  "AXIOM" 


ifdefine  ENDJCHJKN  "END" 

#define  STREAM  JCHTKN  "DATA  STREAM" 

#define  TIMER  SCHTKN  "TIMER" 

#define  CON  SCH  TKN  "CONTROL  CONSTRAINTS" 

^define  METSDE  "psdl_editor" 

#defim  STREAMS _SDE  "psdljeditor" 

^define  CONSTRAINTS JDE  "psdljeditor" 

#define  SPECIFICATION  JDE  "psdljeditor" 

So  there  exists  two  kinds  of  keywords.  Those  which  are  used  for  creation  of  PSDL 
have  the  form  XXXXXXX_TKN,  and  those  for  PSDL  text  buffer  with  the  form 
XXXXXXX_SCH_TKN.  In  order  to  meet  all  the  PSDL  grammer’s  requirement  the 
following  keywords  must  be  added  to  the  dfd_defs.h  file. 

•  #define  TRIGGER_IF_TKN  “  TRIGGER  IF  “ 

•  #define  TRIGGER_BY_ALL_TKN  “TRIGGER  BY  ALL” 

•  #define  TRIGGER_BY_SOME_TKN  ‘TRIGGER  BY  SOME  “ 

•  #define  FINISH_WrrHIN_TKN  “  FINISH  WITHIN” 

•  #define  MAX_RES_TIME_TKN  “  MAXIMUM  RESPONSE  TIME” 

•  #define  PERIOD_TKN  “PERIOD  “ 

•  #define  INFORMAL_TKN  “  INFORMAL” 

•  #define  FORMAL_TKN  “FORMAL” 

•  #define  OUTPUT_GAURD_TKN  “OUTPUT  GAURD” 

•  #define  TRIGGER_IF_SCH_TKN  “  TRIGGER  IF  “ 

•  #define  TRIGGER_B Y_ALL_SCH_TKN  “TRIGGER  BY  ALL” 

•  #define  TRIGGER_BY_SOME_SCH_TKN  “TRIGGER  BY  SOME  “ 

.  #define  FINISH_WITHIN_SCH_TKN  “  FINISH  WITHIN” 

•  #define  MAX_RES_TIME_SCH_TKN  “MAXIMUM  RESPONSE  TIME” 

.  define  PERIOD_SCH_TKN  “PERIOD  “ 

.  #define  INFORMAL_SCH_TKN  “INFORMAL” 
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•  #define  FORMAL_SCH_TKN  “FORMAL” 

•  #define  OUTPUT_GAlJRD_SCH_TKN  “OUTPUT  GAURD” 
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IV.  IMPLEMENTATION  CHALLENGES 

A.  LACK  OF  DOCUMENTATION 

Both  Interviews  and  Idraw  are  research  tools  developed  at  Stanford  University.  As 
such,  the  availability  of  any  technical  document  that  relates  to  any  of  the  modules’  codes 
does  not  exist.  Only  few  tutorial  pages  were  found  after  searching  the  Internet.  There  was 
no  documentation  that  explains  how  the  pieces  fit  together.  There  is  no  reference  material 
for  the  programmers  who  chose  to  modify  the  behavior  of  any  existing  tools.  The  only 
available  form  of  documentation  is  most  instances  is  to  examine  the  uncommented  library 
source  code  for  the  tool  in  hopes  of  figuring  out  how  things  work.  Of  course  if  the  software 
were  written  in  Ada,  it  would  be  very  easy  to  figure  each  module  out.  DOD  is  the  only  one 
so  far  who  knows  the  true  power  and  value  of  Ada.  The  software  development  and  research 
communities  often  ignore  the  biggest  benefit  of  Ada  in  reducing  the  cost  of  developing  a 
software  is  in  maintanace,  upgrading,  and  future  modifications.  It  is  hard  for  an 
experienced  programmer  and  software  developer  who  uses  Ada  to  generate  spaghetti 
codes,  but  in  C  or  C-h-  they  have  to  work  really  hard  to  develop  a  clean  code  that  can  be 
followed  in  the  future  by  other  professionals.  Interviews  and  Idraw  were  written  in  C++. 
So,  lack  of  documentation  is  not  the  only  short  coming. 

B.  PROBLEMS 

First  problem  was  encountered  during  compilation  of  the  CAPS  92  source  code. 
Because  the  graphics  editor  is  using  so  many  different  modules  firom  Interviews  library  and 
the  X- window  library,  setting  up  the  paths  in  Makefile  took  few  days  with  the  size  of  85757 
bytes.  Had  to  figure  out  the  correct  versions  through  trail  and  error  compilations. 

Second  problem  was  encountered  during  the  design  of  the  hierarchy  menus. 
Interviews’ s  Idraw  does  not  handle  any  hierarchy  of  menus.  In  order  to  get  the  desired 
functionality  a  hierarchy  menu  is  the  must.  Idraw  making  a  sophisticated  use  of  inheritance 
of  C++.  Inheritance  is  a  property  of  object-oriented  languages  like  C++  that  allow  the 
programmer  to  reuse  existing  software  implementations,  adding  and  modifying  features  in 
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a  structured  way.  While  this  is  a  great  convenience  for  the  programmer,  it  results  in  some 
objects  being  implemented  with  five  to  nine  levels  of  inheritance.  At  the  leaf  nodes  of  the 
inheritance  tree,  the  reader  sees  methods  and  variables  used,  often  with  no  idea  where  they 
are  defined.  Small  pieces  of  code  are  added  at  each  level  of  inheritance,  spreading  the 
complete  definition  of  some  operations  up  and  down  the  inheritance  tree.  It  was  very 
difficult  to  figure  out  what  things  do  without  a  good  documentation,  and  it  took  in  excess 
of  six  weeks  to  find  out  where  each  module  is  coming  fi-om  and  what  they  do.  This  is  true 
example  of  perfect  spaghetti  code.  Because  of  this  undocumented  complex  inheritance  it 
took  many  tries  to  set  up  a  hierarchy  menu  class  set  up  with  the  help  of  many  experts  in  the 
area  of  C++.  The  pdmenu.h  and  pdmem.c  was  rewritten  in  order  to  get  the  hierarchy  menus 
set  up.  In  order  to  have  a  hierarchy  of  pull  down  menus  the  following  classes  were  used: 

1.  Class  Window.  This  is  the  window  class.  While  there  are  many  classes  that  the 
Window  class  has  inherited,  the  lower  classes  does  not  need  to  be  upgraded  for  our  usage. 

2.  Class  Interactor.  Interactor  class  is  the  one  that  handles  all  the  handshaking 
activities  between  aU  the  modules.  These  activities  are: 

•  Configuration. 

•  Traversing  hierarchy. 

•  Input  events. 

•  Outputs. 

•  Subject-view  communications. 

•  Canvas  properties. 

•  Top-level  interactors. 

3.  Class  InteractorWindow.  An  InteractorWindow  will  bind,  unbind,  receive,  set 
attributes,  and  handle  targets. 

4.  Class  Scene.  A  Scene  can  hold  many  elements  with  functionality  of  Insert, 
Change,  Remove,  Move,  Raise,  Lower,  and  Propagate. 

5.  Class  MonoScene.  A  MonoScene  can  hold  only  one  element. 

6.  Class  HighlighterParent.  A  HighlighterParent  creates  a  highlight  painter  for  its 
interior  Highlighters  to  share. 
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7.  Class  Highlighter.  A  Highlighter  draws  itself  and  highlights  or  unhighlights  itself 
on  command. 

8.  Class  PullDownMenuActivator.  A  PuUDownMenuActivator  displays  a  test  label 
and  opens  a  menu  when  it  is  activated.  PullDownMenuActivator  stores  the  bar  it  belongs 
to  and  its  text  label.  It  starts  off  with  an  empty  menu  and  no  stored  commands,  although  it 
allocates  some  initial  space  to  store  the  commands.  It  must  catch  the  same  mouse  button 
PuUDownMenuCommand  catches. 

9.  Class  PuUDownMenuCommand.  A  PuUDownMenuCommand  displays  a  text 
label  and  executes  a  command.  PuUDownMenuCommand  stores  the  activator  it  belongs  to 
and  its  text  labels.  It  catches  only  one  mouse  button  to  prevent  the  user  from  accidentaUy 
executing  a  command  upon  another  button’s  release. 

10.  Class  PullDownMenuDivider.  A  PuUDownMenuDivider  displays  a  horizontal 
line  extending  the  full  width  of  the  menu,  dividing  it  into  two  submenus. 

11.  Class  PuUDownMenuBar.  A  PuUDownMenuBar  displays  several  activators  and 
coordinates  which  activator  wiU  open  its  menu.  PuUDownMenuBar  starts  with  no  currently 
active  or  stored  activators  although  it  aUocates  some  initial  space  to  store  them. 

12.  Class  PuUDownMenuButton.  A  PuUDownMenuButton  displays  a  text  label  and 
executes  a  command. 

Third  problem  was  encountered  during  the  connectivity  between  CAPS92  tools  and 
the  new  editors’  menu  commands.  CAPS92  did  not  use  tools  through  puU  down  or  push 
button  menus.  Instead  the  same  tools’  procedures  that  came  with  Idraw  was  copied, 
modified,  and  used. 

Final  problem  was  encountered  during  the  conversion  of  input  and  ouU)ut  of  the 
graphics  editor.  Because  the  initial  version  of  the  graphics  editor  was  created  before  there 
was  a  syntax-directed  editor  for  PSDL,  it  was  designed  in  isolation.  The  CAPS92  version 
of  editor.c  uses  two  files  to  save  and  load  the  graphs.  A  PostScript  file  and  a  graph  file.  The 
PostScript  file  contains  all  of  the  information  to  make  the  graph  appear  on  the  screen,  i.e. 
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all  of  the  drawing  information  including  fonts,  colors,  brushes,  etc.  The  graph  file  teUs  the 
MET’s  of  operators,  and  which  edges  hook  to  which  operators.  The  identification  numbers 
of  the  operators  and  edges  actually  come  from  the  PostScript  file.  So,  there  was  a  great  need 
to  come  up  with  a  way  of  storing  all  the  graph  information  needed  to  reconstruct  the  graph 
including  fonts,  colors,  and  all  the  other  graphics  information.  The  PostScript  output  file  of 
the  graph  still  needed  in  order  to  print  hard  copies  of  the  prototypes’  graph.  So  the  final 
challenge  was  to  rewrite  the  input  and  output  procedures  to  be  able  to  write  all  the  prototype 
graphs’  information,  (Operators,  Streams,  METs,  Latencies,  and  other  needed  information) 
in  a  file  that  be  usable  by  SDE.  Also  the  graphics  editor  must  be  able  to  read  and  display 
this  file  after  modification  by  SDE. 


C.  GUIDANCE  FOR  FUTURE  UPGRADES 

It  is  important  for  anyone  with  a  good  knowledge  of  C++  who  wants  to  upgrade 
anything  in  this  graphics  editor  to  take  notes  of  the  files  which  must  get  modified  for 
addition  or  modification  of  one  function.  For  example,  in  order  to  add  the  functionality  for 
the  Trigger_If  button  for  constraints  part  of  PSDL  grammar,  the  following  files  had  to  be 
upgraded: 

•  dfd_defs.h 

•  dfdclasses.h 

•  drawing.h 

•  drawing.c 

•  editor.h 

•  editor.c 

•  keystrokes.h 

•  opsellist.h 

•  opsellistc 

•  sloperator.h 

•  sloperator.c 
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•  tools.c 

•  commands.c 

D.  NEEDED  ADDITIONS  FOR  COMPLITION  OF  THE  EDITOR 

The  graphics  editor  was  designed  to  be  user  friendly  and  perform  as  many  functions 
as  needed  to  draw  a  prototype.  Because  of  time  limitations  all  the  needed  functionality  of 
the  command  buttons  were  not  implemented.  The  following  functionalities  are  complete; 

•  Operators 

•  Streams  (data  streams,  sampled  data  streams,  states  streams) 

•  Operators’  label 

•  Steams’  label 

•  Operator’s  MET 

•  Streams’  latency 

•  Operators’  triggered  if  condition 

•  Operators’  decomposition 

•  Operators’  atomic  implementation  in  Ada 

•  Prototype’s  title/comment 

Other  needed  procedures  must  be  added  in  order  to  satisfy  the  execution  of  other 
command  buttons.  The  existing  codes  from  the  implemented  command  buttons  may  be 
copied  and  changed  to  add  the  other  desired  functionalities. 
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V.  USERS  MANUAL 


A.  INTRODUCTION 

The  Computer  Aided  Prototyping  System,  CAPS,  is  a  software  development 
environment  that  provides  a  means  to  rapidly  constract  an  executable  prototype 
representing  a  large  real-time  software  system  on  a  software  with  real-time  constraints. 

A  window  based  menu  user  interface  guides  the  user  through  the  rapid  prototyping 
process.  The  interface  can  run  on  any  UNIX  workstation  that  uses  the  X  windowing 
system. 

B.  USING  THE  GRAPHICS  EDITOR 

The  graphics  editor  provides  drawing  tools  and  editing  commands  in  order  to  create 
or  modify  an  enhanced  DFD.  The  tools  choices  are:  Select,  Move,  Implement/Decompose, 
Tifle/Comment,  Stream  (represented  as  a  line).  Operator  (represented  as  a  circle). 

The  tools  are  used  by  placing  the  mouse  pointer  over  the  tool  button  and  clicking 
with  the  left  mouse  button.  To  use  the  PSDL  commands  to  input  the  prototypes’ 
information,  the  Property  hierarchy  menu  button  must  be  activated.  In  order  to  see  the  pull 
down  menus  under  the  Property  button,  one  must  place  the  mouse  pointer  over  the  Property 
button  and  click  and  hold  the  left  mouse  button.  Then  while  the  left  mouse  button  is  pushed 
down,  by  moving  the  mouse  pointer  on  top  of  the  existing  option  menu  buttons,  they  will 
get  activated.  The  three  pull  down  menus  under  the  Property  button  are,  Constrained_By, 
Stream,  and  C)perator_Spec.  By  moving  the  mouse  pointer  while  pressing  the  left  mouse 
button  over  each  of  these  buttons  another  menu  will  be  activated.  If  the  left  mouse  button 
is  released  or  if  the  mouse  pointer  goes  out  of  the  menu  parameter,  all  the  menus  wiU  go 
away.  So,  in  order  to  activate  a  command,  the  left  mouse  button  must  be  held  down  and 
drag  the  mouse  pointer  to  the  desired  command  and  then  release  the  left  mouse  button. 


TOOLS 
a.  Select 
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This  tool  is  used  to  mark  as  selected  those  objects  drawn  on  the  screen  that  will  be 
modified  by  another  tool  or  command.  Select  a  single  graphics  object,  or  select  more  than 
one  object  by  holding  down  the  left  mouse  button  and  dragging  the  mouse  cursor  until  each 
of  desired  objects  are  enclosed  in  the  resulting  rectangle. 

b.  Move 

This  tool  is  used  to  move  an  operator,  text,  or  part  of  the  data  flow  diagram.  A  data 
stream  or  state  cannot  be  moved  by  themselves.  If  an  operator  moves,  its  associated  objects 
will  move  with  it.  Select  a  single  graphics  object,  and  move  the  object  by  holding  down  the 
left  mouse  button  and  dragging  the  mouse  cursor.  If  more  than  one  object  is  to  be  moved, 
we  must  first  use  the  Select  tool  to  select  the  group  of  objects  to  be  moved,  and  then  use  the 
Move  tool  to  drag  the  group  to  the  new  location. 

c.  Implement/Decompose 

This  tool  is  used  to  decompose  an  operator  into  a  lower  level  DFD.  First,  select  an 
operator.  The  prototype  will  automatically  be  saved.  A  dialog  box  will  pop  up  to  determine 
type  of  decomposition  desired.  The  following  choices  are  available: 

•  Graphics  Editor:  Another  graphics  editor  will  appear  and  the  lower  level  DFD 
may  be  drawn.  There  is  no  limitation  on  the  level  of  decomposition.  Decomposition  may 
be  continued  as  many  levels  as  there  is  need  for. 

•  Ada:  Generate  the  PSDL  declaration  for  an  Ada  implementation  of  the  operator. 
The  actual  Ada  code  must  be  written  by  the  user. 

•  Search:  Generate  the  PSDL  declaration  for  an  Ada  implementation  of  the  operator 
and  search  the  software  base  for  a  reusable  component  to  match  the  PSDL  specification  of 
the  operator. 

d.  Title/Comment 

This  tool  is  used  to  add  comments  anywhere  on  the  drawing.  It  is  used  by  placing 
the  mouse  cursor  where  the  text  is  to  be  placed  and  clicking  with  the  left  mouse  button  will 
activate  the  keyboard  for  text  entry.  The  comment  is  not  used  by  SDE.  It  is  used  for 
explaining  a  prototype  or  giving  a  name  to  a  prototypes  graph  for  clarity. 
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e.  Stream 

This  tool  is  used  to  draw  a  data  stream  or  state  variable.  At  least  one  end  point  of  a 
data  flow  must  be  inside  an  operator(vertex).  In  order  to  have  a  stream  from  operator  A  to 
operator  B,  first  must  place  the  mouse  cursor  inside  the  operator  that  stream  comes  from 
and  press  the  left  mouse  button  one  time  only,  then  drag  the  mouse  cursor  without  pressing 
on  any  of  the  mouse  buttons  inside  Operator  B  that  streams  goes  to  and  press  the  mouse’s 
right  button.  The  end  points  of  the  stream  will  automatically  get  adjusted  at  the  intersection 
of  the  operator  and  the  stream.  Figure  5. 1  shows  Stream_A_B  from  Operator  A  to  Operator 
B. 


In  order  to  draw  a  spline  between  two  Operators  A  and  B,  first  place  the  mouse 
inside  Operator  A  and  press  the  left  mouse  button  one  time,  next  move  the  mouse  cursor 
(without  pressing  any  of  the  mouse  buttons)  to  an  intermediate  point  between  A  and  B. 
press  the  left  mouse  button  once.  This  will  cause  the  spline  to  pass  through  this  point.  You 
may  add  as  many  intermediate  points  as  required.  Finally,  move  the  mouse  to  Operator  B 
and  press  the  right  mouse  button.  The  spline  will  then  be  drawn  from  Operator  A  to 
Operator  B,  passing  through  all  intermediate  points.  Figure  5.2  shows  Stream_A_B  from 
Operator  A  to  Operator  B  through  two  intermediate  points. 
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Figure  5.2:  Stream_A_B  from  Operator  A  to  Operator  B 

f.  Operator 

This  tool  is  used  to  draw  an  operator.  The  radius  of  the  operator  will  be  35  pixels. 
Choose  were  the  center  of  the  operator  is  desired  by  the  mouse  cursor  and  push  the  left 
mouse  button  to  get  an  operator  at  that  location. 

COMMANDS 

a.  Property 

Except  the  Operator  and  Stream  that  was  put  on  the  left  panel  as  a  tool,  rest  of  the 
PSDL  grammar  has  been  implemented  in  the  pull  down  menu  bar  hierarchy  under  the 
Property  button. 

b.  Prototype 

This  pull  down  menu  present  prototype  operations.  The  following  operations  are 
available  under  this  menu: 

•  OPEN  will  open  up  a  window  with  the  list  of  existing  prototypes. 

•  COMMIT 

•  PRINT  will  print  the  prototype’s  data  flow  diagram. 

•  QUIT  will  save  the  active  prototype  and  quits  the  graphics  editor. 

c.  Edit 
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This  pull  down  menu  presents  editing  operations.  The  following  edit  operations  are 
available: 

•  DELETE  will  delete  the  selected  object  or  objects. 

•  SELECT  ALL  will  select  all  of  the  existing  objects  in  the  active  prototype. 

d.  Graphics 

This  pull  down  menu  presents  the  user  with  the  following  capabilities: 

•  Font,  This  pull  down  menu  will  present  the  user  with  list  of  fonts  to  be  used  for 
the  text  in  the  drawing.  Only  the  selected  text  will  use  the  chosen  font. 

•  FgColor,  this  puU  down  menu  give  the  user  different  options  of  color  for  the 
selected  text,  streams,  and  operators. 

•  BgColor,  This  pull  down  menu  presents  a  list  of  background  colors  for  the  selected 
operators. 

e.  Option 

This  pull  down  menu  presents  various  options  to  aid  in  putting  the  drawing  on  the 
page,  such  as  reducing  the  prototypes’  graph  to  fit  on  one  page,  centering  the  prototypes’ 
graph  on  the  page,  and  providing  a  grid  with  different  settings. 
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VI.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  SUMMARY 

The  goal  of  this  thesis  is  to  develope  a  Mendly  editing  environment  for  computer 
aided  rapid  prototyping  of  hard  real  time  systems  for  CAPS.  This  graphics  editor  constructs 
a  graphical  representation  of  the  prototype. 

The  graphics  editor  handles  all  the  editing  requirements  of  a  prototype.  It  provides 
many  user  friendly  features,  such  as  moving  objects  associated  with  an  operator  when  the 
operator  is  moved  and  updating  the  PSDLs’  associated  parts,  also  updating  the  PSDL 
program  associated  with  an  operator  when  one  of  its  associated  objects  is  modified  or 
deleted.  The  graphics  editor  also  automatically  generates  a  PSDL  representation  of  the 
prototype. 

Additional  options  were  added  to  the  original  design  as  a  result  of  user  testing.  The 
Title/Comment  tool  will  give  the  users  the  capability  to  add  explanation  for  any  operator 
or  stream.  Another  use  of  this  tool  is  to  add  the  title  on  the  top  of  each  prototype  graph,  so 
when  someone  look  at  the  graph  instantly  understand  what  the  prototype  is  all  about,  also 
this  is  useful  for  the  decomposed  operators,  if  an  operator  have  three  or  four  level  of 
decomposition,  the  title  on  each  graph  may  include  an  explanation  of  this  condition. 
Another  useful  addition  is  that  each  decomposed  operator  will  be  marked  with  an  asterisk 
on  the  top  of  its  circle.  When  the  Ada  is  chosen  for  Decompose/Implement  option,  an 
Emacs  editor  will  be  open  with  all  the  existing  information  implemented  from  the  graph. 
In  the  editor  there  will  be  the  package  specifications  and  the  package  body  with  all  the 
existing  information  from  the  graph.  The  unknown  information  will  be  shown  as 
undefined.  Professor  Berzins  recommended  that  we  should  have  different  lines  thickness 
or  types  for  streams  (edges)  to  graphically  be  able  to  identify  the  difference  between  data 
streams,  sampled  streams  and  states.  This  accomplished,  now  the  data  streams  are  shown 
with  heavy  weight  line,  states  with  thin  lines,  and  the  sampled  streams  with  heavy  dashed 
lines. 
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There  was  also  a  suggestion  on  the  color  of  the  operators  to  be  chosen 
automatically.  After  collecting  ideas  from  the  current  users  of  CAPS,  deciding  on  the 
different  colors  for  certain  types  of  operators,  and  thinking  about  the  implementation  part, 
concluded  that: 

•  Each  user  will  have  their  opinion  on  colors. 

•  Having  predefined  colors,  and  giving  another  option  to  the  user  to  be  able  to  over 
write  the  default  colors  need  additional  coding  time  that  is  not  possible  for  this  thesis  time 
limits. 

•  In  case  of  prototypes  like  Patriot  and  the  Scud  Missile,  the  predefined  color  will 
not  look  good  for  two  separate  systems. 

•  The  users  suggested  that  maybe  the  option  of  having  no  color  is  good  when  there 
is  a  need  to  print  the  prototypes  graph  for  distribution. 

B.  CONCLUSION 

As  the  result  of  this  thesis,  CAPS  will  have  a  powerful  and  user  friendly  graphics 
editor  to  rapidly  construct  a  prototype  of  a  large  real-time  system.  The  modification  and 
changes  made  to  the  CAPS  graphics  editor  as  a  result  of  this  thesis,  have  made  CAPS  into 
a  truly  usable  tool.  SDE  can  now  take  advantage  of  this  graphics  editor  to  enhance  the 
prototyping. 
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APPENDIX  A:  GRAPHICS  EDITOR 


A.  STATEMENT  OF  PURPOSE 

The  purpose  of  the  CAPS  graphic  editor  is  to  establish  a  software  development 
environment  that  will  provide  the  designer  with  a  means  of  constructing  a  prototype  in  an 
easy-to-use  environment  to  facilitate  the  creation,  modification,  and  maintenance  of 
prototype. 

B.  GRAPHICS  EDITER’S  OUTPUT  FORMAT 

The  following  attempts  to  list  the  format  of  a  .graph  file  for  use  with  the  latest 
version  of  the  CAPS  editor.  This  format  is  used  to  allow  the  graph  to  be  saved  and 
reconstructed  fi’om  a  single  file,  and  eliminates  the  need  for  a.ps  (PostScript)  file  to 
reconstruct  the  graph. 

The  files  is  composed  of  two  sections,  the  first  is  a  list  of  Vertices  and  Edges.  The 
list  may  intermix  Edge  specifications  with  Vertex  specifications  with  the  following 
restriction.  An  Edge  must  be  specified  AFTER  the  Vertex/Vertices  to  which  it  is  attached. 
The  second  portion  of  the  file  is  simple  the  state  of  the  editor  at  the  point  at  which  it 
the.graph  file  was  last  saved.  The  individual  specifications  are  as  follows: 

(NOTE:  the  C++  style  comments  are  for  clarification  only  and  do  not  appear  in  the 
actual,  graph  file) 

//  Vertex  Specification: 

2050  //  The  integer  2050  signifies  an  OPERATOR 

int  //  a  unique  OPERATOR  identification  number 

int  int  //  CenterX,  CenterY  for  the  ellipse 

int  int  //  RadiusX,  RadiusY  for  ellipse 

string  int  int  int  //  name  and  RGB  values  for  Foreground 

string  int  int  int  //  name  and  RGB  values  for  Background 
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LABEL_STRING  //  see  format  for  a  label  below 
MET_STRING  //  see  format  for  a  label  below 
//  Edge  Specification 

2052  //  The  integer  2052  signifies  an  Edge 

int  int  int  boolean  //  Number  of  points  in  the  Spline 
//  Originating  Operator  id  number 
//  Destination  Operator  id  number 
//  Stream  indicator  1  =  stream,  0  =  state 

int  int  //  a  list  of  X,  Y  pairs  for  each  point  in  Spline 

string  int  int  int  //  name  and  RGB  values  for  Spline  color 

LABEL_STRING  //  see  format  for  label  below 
LATENCY_STRING  //  This  field  should  be  present  for  Streams  only 
//  it  should  not  be  present  for  states  (SelfLoops) 

//  Strings  are  specified  as  follows: 

ini//  length  of  the  string  excluding  null  terminator 

//  the  value  that  would  be  returned  by  strlen() 

char[]//  the  actual  characters  making  up  the  string 

//  this  may  contain  any  character  but  NO 

char[]//  X  name  of  print  font  defaults  to 

//  "*-courier-medium-r-*-100-* 

char[]//  font  family  name  default  "Courier" 

int  //  font  size  default  10 

string  int  int  int//  name  and  RGB  values  for  text  color 
boolean//  default  position  indicator  1  =  default 
int  int  //  Present  only  if  default 
//  position  field  is  0 
//  text  position  x  and  y 
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//  NOTE:  if  the  length  of  a  string  is  0,  i.e.  no  string  has  been 
//  specified  for  a  particular  label,  then  all  other  fields 
//  will  be  absent  from  the  String  specification 


EXAMPLE: 

An  operator  which  has  a  label  but  no  MET  would  look  like  this: 

2050 

1 

69  112 
35  35 

Black  0  0  0 

White  65280  65280  65280 
17 

Operator 

Number_l 

*-courier-medium-r-*-100-* 

Courier 

10 

Black  0  0  0 
1 
0 

NOTE:  notice  that  the  label  string  contains  a  newline  character 
which  is  included  in  the  string  length. 


Following  the  list  of  Vertices  and  Edges,  the  editor  state  appears  as 
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2098//  The  integer  2098  marks  the  end  of  the 
//  Vertex  and  Edge  list 

int  int  int  int//  x,  y  of  view  origin  width,  height  of  view 

string  int  int  int//  The  editors  current  foreground  color  name  and  RGB 

string  int  int  int//  The  editors  cmxent  background  color  name  and  RGB 

char[]//  X  name  of  print  font  defaults  to 

//  "*-courier-medium-r-*- 1 00-* 

char[]//  font  family  name  default  "Courier" 

int  //  font  size  default  10 

Final  Note:  There  should  be  no  blank  lines  in  the.graph  file  blank  lines  shown  above 
are  only  for  clarity.  The  editor  expects  each  line  to  be  formatted  properly  with  no  more  or 
less  information  on  each  line. 

.graph  file  Grammar: 


graph:  component_s 
END_MARKER  NEW_LINE 
editor_state 
» 

component_s:  component 
component_s 
» 

component:  vertex  I  edge  I  comment 
» 

vertex:  OPERATOR  NEW_LINE 

op_id 

ellipse 

fg_color 
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bg_color 

label_text 

met_text 

edge:  EDGE  NEW_LINE 
num_points  from_op  to_op  is_stream  NEW_LINE 
point_s 
fg_color 
label_text 
latency_text 
» 

comment:  COMMENT  NEW_LINE 
comment_text 

op_id:int  NEW_LINE 

ellipse  :centerx  centery  NEW_LINE 
radiusx  radiusy  NEW_LINE 
» 

centerx:  int 

centery:  int 

radiusx:  int 

radiusy:  int 
fg_color:  color 
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bg_color;  color 


color:  name  red  green  blue  NEW_LINE 
namerstring 

red:int 

y 

greenrint 

y 

bluerint 

y 

num_points:  int 

y 

from_index:int 

» 

to_index:int 

y 

is_stream:boolean 

y 

point_s:  point  point_s 

y 

point:  X  y  NEW_LINE 

y 

x:  int 

y 

y.'int 
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latency_text:text 

♦ 

comment_text:text 

text:  length 
text_body 
» 

text_body:  NULL 
I 

textstring 

font 

fg_color 

position 

» 

position:  default 
I  custom 
point 

default:  0  NEW_LINE 
> 

custom:  1  NEW  LINE 


length:  int  NEW_LINE 


textstring:  string  NEW_LINE 

9 

font:printname 

printfont 

printsize 

printname:  string  NEW_LINE 

9 

printfont:  string  NEW_LINE 

9 

printsize:  int  NEW_LINE 

9 

def_position:  boolean  NEW_LE^ 

9 

editor_state:view_diniensions 

fg_color 

bg_color 

font 

9 

view_dimensions:  x  y  dimensions 

9 

dimensions:  width  height  NEW_LINE 

9 

width:  int 

9 

height:  int 
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int:[0-9]+ 


boolean:!  1 0 

string:  [''NO  ] 

y 

NEW_LINE:  Nn’ 

OPERATOR:  2050 

EDGE:2052 

COMMENT:2057 

y 

END_MARKER2098 
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APPENDIX  B:  PSDL  GRAMMER 


:  The  PSDL  grammer  is  provided  by  Professor  Luqi,  Naval  Postgraduate  School  in 
Monterey,  California,  and  modified  by  Professor  Valdis  Berzins,  Naval  Postgraduate 
School  in  Monterey,  California. 

7/28/94:  Valdis  Berzins 

Change  op_id  to  allow  adt  operations  to  appear  in  the  graph. 

Affected  productions: 
op_id  =  id  [“(“  [id.list]  “I”  [id_Ust]  “)”] 


Restrict  id’s  representing  ada  operator  names  to  include  an  integer  suffix  representing 
a  unique  id.  Restrict  psdl  operator  names  to  include  two  integer  suffixes,  the  first  repre¬ 
senting  a  unique  id  and  the  second  representing  an  instance  number.  The  instance  number 
is  zero  for  all  operator  declarations,  and  is  nonzero  for  graph  vertices,  to  represent  opera¬ 
tions  of  a  psdl  type  that  appear  more  than  once  in  the  expanded  graph. 

New  productions: 

op_name  =  ada_op_name  integer_literal 
ada_op_name  =  id  integer_literal 

Affected  productions: 

type_spec  =  “specification”  [“generic”  type_decl]  [type_decl] 

{“operator”  id  operator_spec}  [fiinctionality]  “end” 
operator  =  “operator”  id  operator_spec  operator_impl 

type_impl  =  “implementation”  type_name  (“operator”  id  operator_impl}  “end” 

operator_impl  =  “implementation  ada”  id  “end” 

initial_expression  =  type_name  “.”  id  [“(“  initial_expression_list  “)”] 

expression  =  type_name  “.”  id  [“(“  expressionjist  “)”] 

op_id  =  id  [“(“  [id_list]  “I”  [idjist]  “)”] 

11/14/91:  Change  entered  by  Charlie  Altizer. 

The  phrase  “BY  REQUIREMENTS”  was  changed  to  “REQUIRED  BY.” 

Affected  productions: 

reqmts_trace  =  “by  requirements”  id_list 
end  Header 

psdl  grammar  12/1/90 

Optional  items  are  enclosed  in  [  square  brackets  ].  Items  which  may  appear  zero  or  more 
times  appear  in  {  braces  }.  Terminal  symbols  appear  in  “  double  quotes  “.  Groupings 
appear  in  ( parentheses ). 
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********************************** ************************************** 


psdl 

=  {component} 

component 

=  data_type 
I  operator 

data_type 

=  “type”  id  type_spec  type_impl 
type_spec 

=  “specification”  [“generic”  type_decl]  [type_decl] 
(“operator”  op_name  operator_spec} 

[functionality]  “end” 

operator 

=  “operator”  op_name  operator_spec  operator_impl 
operator_spec 

=  “specification”  (interface)  [functionality]  “end” 
interface 

=  attribute  [reqmts_trace] 
attribute 

=  “generic”  type_decl 
I  “input”  type_decl 
1  “output”  type_decl 

I  “states”  type_decl  “initially”  initial_expression_list 
I  “exceptions”  id_list 
I  “maximum  execution  time”  time 

type_decl 

=  id_list  “:”  type_name  {“,”  id_list  type_name} 


type_name 
=  id 

I  id  “[“  type.decl  “]” 

id_list 

=  id{“”id} 
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reqmts_trace 

=  “required  by”  id_list 

functionality 

=  [keywords]  [informal_desc]  [fornial_desc] 
keywords 

=  “keywords”  id_list 


informal_desc 

=  “description”  text 

formal_desc 

=  “axioms”  text 


type_impl 

=  “implementation  ada”  id  “end” 

I  “implementation”  type_name  {“operator”  op_name  operator_impl}  “end” 
operator_impl 

=  “implementation  ada”  ada_op_name  “end” 

I  “implementation”  psdMmpl  “end” 

psdl_impl 

=  data_flow_diagram  [streams]  [timers]  [control_constraints] 
[informal_desc] 

data_flow_diagram 

=  “graph”  [vertex]  [edge] 

vertex 

=  “vertex”  op_id  [“:”  time] 

-  time  is  the  maximum  execution  time 


edge 

=  “edge”  id  [“:”  time]  opjd  “->”  opjd 
-  time  is  the  latency 

op_id 

=  [id  “.”]  op_name  [“(“  [id.Ust]  “I”  [id.Ust]  “)’1 
streams 
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=  “data  stream”  type_decl 


timers 

=  “timer”  id_list 
controLconstraints 

=  “control  constraints”  constraint  {constraint} 

constraint 

=  “operator”  op_id 

[“triggered”  [trigger]  [“if’  expression]  [reqmts_trace]] 
[“period”  time  [reqmts_trace]] 

[“finish  within”  time  [reqmts_trace]] 

[“minimum  calling  period”  time  [reqmts_trace]] 
[“maximum  response  time”  time  [reqmts_trace]] 

{ constraint_options } 

constraint_options 

=  “ou^ut”  id_list  “if’  expression  [reqmts_trace] 

I  “exception”  id  [“if’  expression]  [reqmts_trace] 

I  timer_op  id  [“if’  expression]  [reqmts_trace] 

trigger 

=  “by  all”  id_list 
I  “by  some”  id_list 

timer_op 

=  “reset  timer” 

I  “start  timer” 

I  “stop  timer” 

initial_expression_list 

=  initial_expression  initial_expression} 

initial_expression 
=  “true” 

I  “false” 

I  integer_literal 
I  real_literal 
I  string_literal 
lid 

I  type_name  op_name  [“(“  initiaLexpressionJist  “)”] 
I  “(“  initial_expression  “)” 
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I  initial_expression  binary_op  initial_expression 
I  unary_op  initial_expression 


binary_op 

=  “and”  I  “or”  I  “xor” 

I  U I  I  *<^>5  I  I  I  *y— ” 

I  “+”  I  I  “&”  I  “*”  I  “/”  I  “mod”  I  “rem”  I  “**” 


unary_op 


=  “not”  I  “abs”  I  “-”  I  “+’’ 


time 

=  integer_literal  unit 


unit 

=  “microsec” 

I  “ms” 

I “sec” 

I  “min” 

I  “hours” 

expression_list 

=  expression  {“,”  expression} 

expression 
=  “true” 

I  “false” 

I  integer_literal 
I  time 

I  real_literal 
I  string_literal 
I  id 

I  type_name  “.”  op_name  [“(“  expression_list  “)”] 
I  “(“  expression  “)” 

I  initial_expression  binary_op  initial_expression 
I  unary_op  initial_expression 

op_name 

=  ada_op_name  “_”  integer_literal 

ada_op_name 

=  id  “_”  integer_literal 


id 
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=  letter  { alpha_numeric } 


real_literal 

=  integer_literal  integer_literal 

integer_literal 

=  digit  {digit} 

string_literal 

=  “““  (char)  “““ 

char 

=  any  printable  character  except  “ }” 

digit 

=  “0 ..  9” 

letter 

=  “a ..  z” 

I  “A ..  Z” 

I  ti  99 

alpha_numberic 
=  letter 
I  digit 

text 

=  {char} 


66 


APPENDIX  C:  CODES 


Comiiumds.h 

#i&idef  oomniands_h 
#dcfme  commands_h 
#include  <InterViews/StdMreamJi> 

#include  ''pdmoiuJ)" 

//  Dedaic  imported  types. 

class  Editon 
class  MapK^; 
class  State; 

//  A  Commands  di^lays  a  PullDownMcouBar  containing  several 
//  PoUDownMenuActivators  each  of  which  contains  a  PuUDownMenu. 

class  Commands :  public  IMUDownMenuBar  ( 
public: 

CommBnd5(Editor*,  MapKey*,  State*); 
protected: 

void  Init(Editor*,  MapKey*,  State*); 
void  RectmfigO; 

I; 


#endif 


Coniniands.c 


*  Changes  made  by  :  Mchdi  E.  Rowshanace 
#include  *'commands.h“ 
tinclude  "edilorJi" 

#include  ’'ipainth*' 

#mclude  "istringJh" 
tinclude  ’*kcystrokcs.h" 

#include  “mapipainth" 

#includc  ’’mapkeyb" 

#include  "sllinesJi“ 

#include  *'stateJi" 

#tnclude  "pdmenuJi** 

#include  ^terView8A)oxJi> 

#include  <lnterViews4>ainterJ)> 

#include  <lntcrViews/sensorJi> 

#includc  ^terViewsAhapcJi> 

//  An  IdrawCommand  enters  itself  into  the  MapKey  so  KeyEvents  may  be 
//  mapped  to  IdrawCommands. 

class  IdrawComnuutd  :  public  PullDownMenuCommand  { 
public: 

IdrawCommand(PullDownMenuActivator*,  const  char*»  char,  Editor*. 

MapKey*  •*  nil); 

protected: 

Editor*  editor,  //  handles  drawing  and  editing  operations 

I; 
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//  Idraw Command  passes  a  printable  string  representing  the  given 
//  character  for  its  key  string  and  alters  itself  into  the  character's 
//  slot  in  the  MapKey. 

IdrawCommandi’JdrawConimand  (PullDownMenuActivator*  a,  const  char*  n»  char  c.  Editor*  e,  MapKcy*  mk) 
:  PullDownMcnuCommand(a,  lu  mk  ?  ndc->ToSir(c) : "") 

I 

editor  *  c; 
if  (mk  I*  nil) 

{ 

mk->£nteKthis,  c); 

) 

I 


//New  additions  to  Commands.c  By:  Mehdi  Rowshanaec// 

//  Sc^)tl994 

class  LabelC<»nmand  :  public  IdrawCommand  { 
public: 

LabclCommand  (PulDownMcnuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdrawCommand  (a,  "Label",  LABELCHAR,  c,  mk)  | } 
void  Execute  {Evcnt&  e)  { 
editor*  >ToolSet(LAB£LCHAR); 

) 

I; 


class  LatencyCommand  :  public  IdrawCommand  { 
public: 

LatencyCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdiawCommandfa,  "Latency",  LATENCYCHAR,  c,  mk)  { } 
void  Execute  OEventA  e)  { 

editor*>ToolSet(LArENCYCHAR); 

) 

I; 


class  Key^WordCommand  :  public  IdrawCommand  { 
public: 

Kcy_WordCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdrawCommand(a,  "Key  Word  ",  KEYWORDCHAR,  e,  mk)  | } 
void  Execute  (EventA)  { 

//  editor->HandleKey_WoiTiO; 


class  SutesCommand  :  public  IdrawCommand  { 
public: 

StatesCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKe5r*  mk) 
:  IdrawCommand(a,  "States  ",STATES(rHAR ,  e,  mk)  { | 
void  Execute  (EventA  e  )  { 

//  editor->  HandlcSutes(c); 

} 

); 


class  InformalCommand  ;  puUic  IdrawCommand  { 
public: 

InformaIC!omniand  (PullDownMenuActivator*  a.  Editor*  e,  M^Key*  iric) 
:  IdrawCommand(a,  "Informal  " JNFORMALCZHAR ,  e,  mk)  i ) 
void  Execute  (EventA)  { 

//  editoi^>  HandlelnformalQ; 

} 

I; 


class  FormalC^mmand  :  public  IdrawCommand  ( 
public: 

FoimalCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdrawCommand(a,  'Tormal  "JFORMALCHAR  ,  e,  mk)  { } 
void  Execute  (EventA)  { 

//  editor*>  HandlcFormalO; 
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class  Exccption_DcclCommaftd  :  public  IdrawCommand  { 
public: 

Exccption^DeclCommand  (PuUDownMcnuActivator*  a,  Editor*  c,  MapKey*  mk) 
:  ldrawCommand(a»  "Exc^tion_Dcclaiation",EXUfcPTCHAR ,  c,  mk)  | } 
void  Execute  (Eveat&)  | 

//  cditor->Exccption_DeclO; 

} 

}; 


class  Resct_’nmerCommand  :  public  IdrawCommand  | 
public: 

Rcsct_TimerCommand  (PullDownMeouActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdrawCommandCa,  "Reset  Timer" »RESET_TIMERCHAR ,  c» mk)  { } 
void  Execute  (EventA  c)  { 

//  cditor->HandleRcsct_Timer(c); 

} 

); 


class  Start_TimciCcHiunand  :  public  IdrawCommand  { 
public: 

StartJTimcrCommand  (PullDownMenuActivator*  a.  Editor*  e.  MapKcy*  mk) 
:  IdrawCommand(a,  "StartJTimer  ",START_jnMERCHAR » c,  mk)  { ) 
void  Execute  (Event*  c)  | 

//  editor->HandleStartjrimer(c); 

} 

}; 


class  StopJTimerCommand :  public  IdrawCommand  | 
public: 

Stop.TuncrCoimnand  (PullDownMenuActivator*  a.  Editor*  e»  MapKey*  mk) 
:  IdrawCommand(a,  "Stop_Timcr  *',STOP_TIMERCHAR ,  c,  mk)  { | 
void  Execute  (Event*  e)  { 

//  editor->HandleStop_’IimcKe); 

I 

}; 


class  HouiCommand :  public  IdrawCommand  { 
public: 

HourCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdrawCommand(a,  "Hour  " JflOURCHAR ,  c,  mk)  { ) 
void  Execute  (Event*  e)  ( 
editor->ToolSet(HOURCHAR) ; 

} 

); 


class  LHoufCommand  :  public  IdrawCommand  { 
public: 

LHouiCommand  (PullDownMenuActivator*  a»  Editor*  e,  MapKey*  mk) 
:  IdrawCommand(a,  "Hour  " XHOURCHAR ,  e,  mk)  { ) 
void  Execute  (Event*  e)  { 
editor->ToolSet(LHOURCHAR); 

} 

I; 


class  Micro_SecCommand :  public  IdrawConunand  { 
public: 

Micro^SecCommand  (PullDownMenuActivator*  a»  Editor*  c,  MapKey*  mk) 
:  IdrawCommand(a,  "Micro  Second",  MICSECCHAR,  e,  mk)  { } 
void  Execute  (Event*  e)  { 

editor‘>ToolSet  (MICSECCHAR); 


y. 


class  LMicro_SecCommand :  public  IdrawCommand  { 
pitolic: 

LMicro_SccCommand  (PullDownMenuActivator*  a.  Editor*  e.  MapKey*  mk) 
:  IdrawCommand(a,  "Micro  Second",  LMICSECCHAR,  e,  mk)  { ) 
void  Execute  (Event*  e)  { 

editor->ToolSet(LMICSECCHAR); 

I 
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class  Milj_SecCommand  :  public  IdiawCommand  { 


public: 

MilLSecCommand  (PullDownMenuActivator*  a.  Editor*  c,  MapKey*  ink) 
:  ldrawCommand(a,  "MilliSccond",  MILSECCHAR,  c,  mk)  { ) 
void  Execute  (Event&  c)  { 

edilor->ToolSct  (MILSECCHAR) ; 

) 

I; 


class  MinuteCommand  :  public  IdrawCommand  { 
public: 

NEnuteCommand  (PullDownMenuActivator*  a.  Editor*  e^  MapKey*  mk) 
:  IdrawCommandCa,  "Kfinute",  MINUTECHAiC  e,  mk)  { } 
void  Execute  (Evefit&  e)  { 

cditor->ToolS  ct(MINUTECK[AR); 

) 

); 


class  SecondCommand  :  pt^lic  IdrawCommand  ( 
public: 

SecondCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdrawCommand(a,  "Second  SECONDCHAR,  e,  mk)  ( ) 
void  Execute  (Event&  e)  { 

editor->ToolSet(SECONDCHA  R); 


class  LMili_SecCommand  :  public  IdrawCommand  { 
public: 

LMili_SecCominand  (PullDownMenuActivator*  a,  Editor*  e«  MapKey*  mk) 
:  IdrawCommand(a>  "MlUiSecond",  LMILSECCH^,  e,  mk)  { | 
void  Execute  (Event&  e)  ( 

editor-'>ToolSet(LMILS£CCHAR); 

I 

}; 


class  LMinuteCommand  :  public  IdrawCommand  { 
public: 

LMinuteCommand  (PullDownMenuActivator*  a,  EcUtor*  e,  MapKey*  mk) 
:  ldrawCommand(a,  "Minute",  LMINIJ7ECHAR,  e,  ndt)  ( } 
void  Execute  (Event&  e)  | 

cditor->ToolS  ct(LMINUTECHAR); 

I 


class  LSecondCommand  :  public  IdrawCcnnmand  ( 
public: 

LSecondCommand  (PullDownMoiuActivator*  a.  Editor*  c,  MapKey*  mk) 
:  ldrawCommand(a,  "Second  ",  LSECONDCHAR,  e,  mk)  ( ) 
void  Execute  (Event&  e)  { 

editor->ToolSet(LSECONDCHAR); 


class  IfCommand  ;  public  IdrawCommand  { 
public: 

IfCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdrawCommand(a,  "Trigger  IF'.IFCHAR,  e,  mk)  { } 
void  Execute  (Eventd(t  e)  { 
editor^>ToolSet(IFCHA  R); 

) 


70 


); 

class  By_AnCommand  :  public  IdrawCommand  { 


public: 

By_AllCommand  (PullDownMcnuActivatoi^  a»  Editor*  c,  MapKcy*  mk) 
:  IdrawCoinniand(a,  'Triggcrd  By  All",  BYALLCHAR,  c,  mk)  { ) 
void  Execute  (Evenl&  c)  { 

//  edito^>HandleBy_AU{e); 

} 

I; 


class  By_SomeCommand  :  public  IdrawCommand  { 
public: 

By^SomeCommand  (PullDownMenuActivator*  a.  Editor*  c,  MapKey*  mk) 
:  IdrawCommand(a,  'Triggerd  By  Some",  BYSOMECHAR,  e,  ndt)  ( ) 
void  Execute  (EventA  e)  { 

//  cditor«>HandleBy_Some(c); 

) 

}; 


class  IntcgerCommand :  public  IdrawCommand  { 
public: 

IntcgerCommand  (PullDownMenuActivator*  a.  Editor*  c,  MapKey*  mk) 
:  IdrawCommand(a,  ’Integer",  IN’ I’iiGERCHAR,  c,  mk)  { ) 
void  Execute  (EventA  e)  { 

//  editor->HandlcIntcgcr(c); 

I 

I; 


class  RealCommand  :  public  IdrawCommand  { 
public: 

RealCommand  (PullDownMenuActivator*  a.  Editor*  c,  MapKey*  mk) 
:  IdrawCommand(a,  "Real",  REALCHAR,  c,  mk)  { } 
void  Execute  (EventA  e)  { 

//  cditor*>HandlcRcal(c); 


I; 


class  BooleanCommand  :  public  IdrawCommand  { 
public: 

BooleanCommand  (PullDownMenuActivator*  a.  Editor*  c,  MapKey*  mk) 
:  IdrawCommand(a,  "Boolean",  BCX)LEANCHAR,  e,  mk)  { J 
void  Execute  (EventA  c)  { 

//  editor->HandleBoolean(e); 

I 

); 


class  Uscr_DcfincdCommand  :  public  IdrawCommand  { 
public: 

Uscr_DcfincdCommand  (PullDownMenuActivator*  a.  Editor*  c,  MapKey*  mk) 
:  IdrawCommand(a,  "User  Defined",  USERDEFINEDCHAR,  e,  mk)  { } 
void  Execute  (EventAe)  { 

//  cditor“>HandlcUscr_DefincdcO; 

) 


class  OpenCommand  :  public  IdrawCommand  | 
public: 

OpenCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 

:  IdrawCommand(a,  "Open...",  OPENCHAR,  e,  mk)  { 1 
void  Execute  (EventA)  { 

edito^>OpenO; 

) 

U 

class  CommitCommand  :  public  IdrawCommand  | 
public: 

CommitCommand  (PullDownMenuActivator*  a.  Editor*  e,  Mi^Key*  mk) 
:  IdrawCommand(a,  "Commit",  SAVECHAR,  e,  mk)  ( ) 
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void  Execute  (Event&)  { 

editor->Conimit() ; 

} 

); 


class  PrintCommand  :  public  IdrawCommand  { 
public: 

PrintCommand  (PullDownMcnuActivator*  a,  Editor*  e,  MapKey*  mk) 
:  ldrawCommand(a,  "PrinL..",  PRINTCHAR,  c,  mk)  { } 
void  Execute  (Evcnt&)  ( 

cditor«>PrintO; 

) 

I; 


class  QuitCommand  :  public  IdrawCommand  ( 
public: 

QuitCommand  (PullDownMenuActivator*  a»  Editor*  e,  MapKcy*  mk) 
:  IdrawCommand(a,  "Quit",  QUITCHAR,  c,  mk)  { ) 
void  Execute  (jEycnt&  c)  { 

cditof^>Qiiit(c); 


I; 


class  DeleteCommand  :  public  IdrawCommand  ( 
public: 

DeleteCommand  (PullDownMenuActivator*'  a.  Editor*  e.  MapKcy*  mk) 
:  IdrawCommand(a,  'Delete",  DELETECHAR,  e,  mk)  { ) 
void  Execute  (Event&)  { 

editor*>DclcteO; 

I 

I; 


class  SelectAll  Command :  public  IdrawConunand  { 
public: 

SelectAllCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdrawCommand(a,  "Select  All",  SELECTALLCHAR,  c,  mk)  { ) 
void  Execute  (Evoit&)  { 

editor>>SelectAll  () ; 


I; 


class  FontCommand  :  public  IdrawCommand  ( 
public: 

FontCommand  (PullDownMenuActivator*  a.  Editor*  c,IFont*  f) 

:  IdrawConunand(a,  f->GctPrintFontAndSizcO»  V)'»  ©)  { 
font  *  f; 

I 

void  Execute  (Evait&)  { 

editor^>SetFont(f(mt); 

I 

protected: 
void  Reconfig  0  ( 

Font*  f  «*  *font; 
if  (output->GetFont()  1=  f)  { 

Painter*  copy  »  new  Painterfoutput); 
copy-^cferencc(); 

Unref(output); 
output «  copy; 
output->Se^ont(0; 

} 

IdrawCommand  ::ReconfigO; 

I 

void  Resize  Q  {  constant  left  pad  to  Ime  up  entnes 

const  int  xpad  *  6; 
namc_x  *  xpad; 

namc_y  *  (ymax  -  output->GetFontO->Height()  +  1)  /  2; 
kcy_x  »  key_y  «  0; 

I 

IFont*  font;  //  font  to  give  Editor 

); 


static  const  int  PICXMAX  »  47;//  chosen  to  minimize  scaling  for  canvas 
static  const  int  PICYMAX  »  14; 
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class  PattcmCommand  :  public  IdrawCommand  { 
public; 

PattcmCommand  (PulIDownMcnuActivator^  a.  Editor*  c.  IPattcm*  p.  State*  s) 
;  IdrawCommand(a,  ”None",  V)‘,  c)  { 

fgcolor  s->GctFgColor(); 
bgcolor  «  s->GctBgColoi(); 
pattern  *  p; 
patindic  -  nil; 


-'PattcmCommand  ()  | 

Unref(patindic); 

) 

void  Execute  (Evait&)  ( 

editor->SetPattcm  (pattern); 


protected: 
void  Reconfig  0  ( 

IdrawCommand:  :Reconiig(); 
if  (patindic  nil)  { 

patindic  «  new  Painter(ou^ut); 
patindi(»RefeFenceO; 
patindic->SctColois(*fgcolor,  *bgcolor); 
patindic->SctPattcm(*pattem); 

} 

I 

void  Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 
if  (pattem->NoneO)  ( 

IdrawCommand  ::Redraw(l,  b,  r,  t); 

}  else  { 

output->ClearRect(canva$,  1,  b.  r»  t); 

patindic->FUlRcct(canvas,name_x»name_y^ax-name_x,ymax-name_y); 

output-'>Rect(canvas,  namc_x»  namc_y,  xmax-namc_XT  ymax-namc_y); 

) 


} 

IColor*  fgcolor, 
IColor*  bgcolor; 
IPattem*  pattern; 
Painter*  patindic; 

I; 


//  stores  initial  foreground  color 
If  stores  initial  background  color 
//  stores  pattern  to  give  Editor 
//  fills  rect  to  dononstrate  pat’s  effect 


class  ColoiCommand  ;  puUic  IdrawCommand  { 
public; 

ColorCommand  (PullDownMenuActivator*  a.  Editor*  e,  IColor*  c) 

;  ldrawCommand(a,  c->GctNamc(),  V)',  e)  { 
key  ^ 
color  =  c; 
colorindic  *  nil; 

I 

•^ColorCommand  ()  | 

key  »  nil; 

Unref(colorindic); 

) 

protected: 
void  Reconfig  ()  { 

IdrawCommand :  iReconfigO; 
if  (coloritKlic  »  nil)  { 

colorindic  ■  new  Painterfoutput); 
colorindic->ReferenccO: 

colorindic->SetColors(*color,coloiindic->GctBgColor()); 

I 

I 

void  Redraw  (Coord  1,  Coord  b.  Coord  r,  Coord  t)  { 

IdrawCommand::Redraw(l,  b,  r,  t); 

colorindic->FillRect(canvas,  kcy_x,  key_y,  xmax-namc_x,  ymax'namc_y); 
output->Rect(canvas,  key_x,  key_y,  xmax-namc_x,  ymax-name_y); 

IColor*  color,  //  stores  color  to  give  Editor 

Painter*  colorindic;//  fills  rect  to  demonstrate  color^s  effect 

); 

class  FgColoiCommand  :  puUic  ColorCommand  ( 
p<d>lic; 

FgColoiCommand  (PullDownMenuActivator*  a.  Editor*  e,  IColor*  c) 

:  ColorCommand(a,  e,  c)  ( ) 
void  Execute  (Event&)  { 

cditor'>SctFgColor<color); 
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class  BgColoiCommand :  public  ColoiCommand  { 
public: 

BgColorCommand  (PullDownMenuActivalor*  a,Editor*  c,IColor^  c) 
:  ColorCommand(a»  e,  c)  { } 
void  Execute  (Evcnt&)  { 

editor->SetBgColo  Kcolor) ; 

I 

); 


class  ReduceCommand  :  public  IdrawCommand  { 
public: 

ReduceCommand  (PullDownMenuActivator*  a,  Editor*  c,  MapKcy*  mk) 
:  IdrawCommand(a,  "Reduce",  REDUCECHAR,  c,  mk)  { } 
void  Execute  (Evcnt&)  | 

editor->Reducc(); 

); 


class  EnlargeCommand :  public  IdrawCommand  { 
public: 

EnlargeCommand  (PullDownMenuActivator*  a.  Editor*  e,  MapKcy*  mk) 
:  IdrawCommand(a,  "Enlarge",  ENLARGECHAR,  e,  mk)  { } 
void  Execute  (Evcnt&)  | 

editor->£nlargeO; 

) 

y. 


class  NoimalSizeCommand  :  public  IdrawCommand  { 
public: 

NormalSizeCommand  (PuIlDownMcnuActivator*  a.  Editor*  e,  MapKey*  mk) 
:  IdrawCommand(a,  "Normal  Size",  NORMALSIZECHAR,  e,  mk)  { ) 
void  Execute  (Evait&)  { 

cditor->NormalSiz^; 

) 

I: 


class  ReduccToRtCommand  :  puUic  IdrawCommand  { 
public: 

ReduccToRtCommand  (PuIlDownMcnuActivator*  a.  Editor*  e,  MapKcy*  mk) 
:  IdrawCommand(a,  "Reduce  To  Rt",  REDUCETOFTTCHAR,  e,  mk)  | ) 
void  Execute  (Eva)t&)  { 

cditor*>ReduccToFitO; 

} 

I; 


class  CcntcrPagcCommand  :  public  IdrawOmmand  { 
public: 

CentcrPagcCommand  (PuIlDownMcnuActivator*  a.  Editor*  c,  MapKcy*  mk) 
:  IdniwCommand(a,  "Center  Page",  CENTERPAGECHAR,  c,  mk)  { ) 
void  Execute  (Event&)  | 

editor*>CcnteiPageO; 

I 

I; 


class  RedrawPageCommand  ;  public  IdrawCommand  { 
public: 

RedrawPageCommand  (PuIlDownMcnuActivator*  a.  Editor*  c,  MapKcy*  mk) 
:  IdrawCommand(a,  "Redraw  Page",  REDRAWPAGECTIAR,  e,  mk)  | } 
void  Execute  (EventA)  { 

editor->RedrawPage(); 


class  GriddingOnOffCommand  :  public  IdrawCommand  { 
public: 

GriddingOnOffCommand  (PuIlDownMcnuActivator*  a.  Editor*  c,  MapKcy*  mk) 
:  ldrawCommand(a,  "G  ridding  on/off",  GRIDDINGONOFFCHAR,  c,  mk)  { | 
void  Execute  (Evcnt&)  ( 

editor->GriddingOnOffO; 


1; 
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class  GridTV^blelnvisibleCommand  :  public  IdrawCommand  ( 
public: 

GridV^blcInvisiblcCommand  (PullDownMcnuActivator*  auditor*  c^MapKcy*  mk) 

:  IdrawCommand(a,  "Grid  visiblcrinvisible",  GRIDVISD3LEINVISIBL£CHAR,  e,  mk)  ( } 
void  Execute  (£vent&)  { 

cditor->Grid  VisiblcInvisiblcO ; 

} 

); 


class  Grids pacingCommand  :  public  IdrawCommand  { 
public: 

GridSpacingCommand  (PullDownMcnuActivator*  a.  Editor*  e»  MapKcy*  mk) 
:  IdrawCommand(a,  "Grid  spacing...".  GRIDSPACINGCHAR,  c,  mk)  { ) 
void  Execute  (EventA)  ( 

editor->GridSpacing(); 


1; 


class  OricntationCommand  :  pt^lic  IdrawCommand  ( 
public: 

OricntationCommand  (PullDownMcnuActivator*  a.  Editor*  e,  MapKcy*  mk) 
:  IdrawCommand(a,  "Ori«itation",  ORIENTATIONCHAR,  c,  mk)  { } 
void  Execute  (EvcntA)  { 

editor->Orientation(); 


class  ShowVersionCommand  :  public  IdrawCommand  { 
public: 

ShowVersionCommand  (PullDownMcnuActivator*  a,  Editor*  c,  MapKey*  mk) 
:  IdrawConimand(a, SHOWVERSIONCHAR.  e,  mk)  { 

Listen(noEvents); 

I 

void  Execute  (EventA)  { 

editor->ShowVcrsionO ; 

} 

protected: 
void  Reconfig  Q  ( 

shape->width  ^  shape>>height «  0; 

) 

}; 


if  Commands  creates  its  commands. 

Commands ::Commands  (Editor*  c.  MapKcy*  mk.  State*  s)  { 

Init(e,  mk.  s); 

} 

//  Init  creates  the  activators  and  commands,  inseits  the  commands  into 
//  menus,  gives  the  menus  to  the  activators,  and  inseits  the  activators. 

void  Commands: dbit  (Editor*  c.  MapKcy*  mk.  State*  state) 

1 


PullDownMcnuActivator*  property*  new  PullDownMenuActivatoKthis.  "Property"  ); 
PullDownMenuActivator*  pint  «  new  PullDownMcnuActivatoi(this.  "Prototype"); 
PullDownMcnuActivator*  edit  ■  new  Pul  lDownMenuActivator(this,  "Edit"  ); 
PullDownManuActivator*  graphics  «  new  PuIlDownMenuActivatoifthis.  "Graphics"); 
//  PullEtownMcnuActivator*  pat  *  new  PullDownMcnuActivator(this,  "Pattern"  ); 
PullDownMcnuActivator*  option  «  new  PulIDownMenuActivatOT(this,  "Option"  ); 


Scene*  propertymenu  «  new  VBox; 

PullDownMcnuActivator*  constraint_by  «  new  PullDownMcnuActivator  ( property .  "Constraint_By  "); 
PullDownMcnuActivator*  operator_spec  *  new  PullDownMenuActivator  ( property .  "Operator  Specs"); 
PullDownMenuActivator*  stream  *  new  PullDownMcnuActivator  (  property .  "Stream  "); 

propertymenu  ->  Insert  (constiaint_by); 

//  propertymenu  ->  Insert  (new  PuUDownMenuDivider); 
propertymenu  •>  Insert  (stream); 

//  propertymenu  ->  Insert  (new  PuUDownMenuDivider); 
propertymenu  ->  Insert  (opcrator_spcc); 


75 


Some  ♦op_spcc_iirie5iu  *  new  VBox; 


PullDownMcnuActivator  *op_spcc_infonnal  *=  new  PullDownMcnuActivator  (opcrator_spcc ,  ’Informal’'); 
PullDownMenuActivator  ♦op_8pcc_formal  *  new  PullDownMcnuActivirtor  (operator_spcc ,  ”Foniiar')l 
PullDownMcnuActivator  •op_spec_gencric  =  new  PullDownM«iuActivator  (opcrator_spcc  ,  "Gaieric  ”); 
PullDownMcnuActivator  *op_spcc_input  *  new  PullDownMoiuActivator  (operatorjspec ,  "Input  "); 
PullDownMcnuActivator  *op_spcc_output  =  new  PullDownMoiuActivator  (c^erator_spec  ,  "Output  "); 
PullDownMcnuActivator  *op_spcc_mct  «  new  PullDownMcnuActivator  (opcrator_spcc  ,  "M  E  T  "); 
PullDownMcnuActivator  ^latency  «  new  PullDownMenuActivator  (stream  ,  "Latency  "); 

op_spcc_m«iu  ->  Insert  (new  Key_WordCommand  (opCTatorjspcc,  c,  mk )); 
op_spec_mcnu  ->  Insert  (new  StatesCommand  (  operatorjspec,  c,  mk  )); 
op_spcc_mcnu  ->  Insert  (new  InfonnalCommand(  operatorjspec,  c,  mk)  ); 
opjSpcc_menu  ->  Insert  (new  FormalCommand  ( opcrator_spcc,  c,  mk)  ); 
opjSpcc ..menu  ->  Insert  (op_spcc ^generic); 
op_spec_mcnu  ->  Insert  (op  jSpec_input); 
op_speCjmcnu  ->  Insert  (op_spcc_output); 

op_spec_mcnu  ->  Insert  (new  Exccpti<m_Decl  Command  ( opcrator_spec,  c*  mk )); 
op_spcc_mcnu  ->  Insert  (op  jSpec_mct); 

operatorjspec  ->  SctMcnu(op_speCjmenu); 

Scene  ♦const_by_mcnu  ■=  new  VBox; 

PullDownMcnuActivator  ♦const_by_trigger  «  new  PullDownM«iuActivator  (coostraint_by,  'Tri^cr  "); 
PullDownMenuActivator  *const_by_pcriod  «  new  PullDownMenuActivator  (constraint_by,  'Period  "); 
PullDownMcnuActivator  *const jby_finish  *  new  PullDownMenuActivator  (constraint_by,  "Rnish  within"); 
PullDownMenuActivator  *const_by_niin  «  new  PullDownMcnuActivator  (constraint_by,  "Min  Call  "); 
PullDownMenuActivator  ‘const  jl^^max  ■  new  PullDownMcnuActivator  (constraintjby,  "Max  Response  Time"); 

PullDownMcnuActivator  ‘constjbyjtimcr  *  new  PullDownMcnuActivator  (constraint_by,  'Timer  "); 

const_by_mcnu  ->  Insert  ( const_by ^trigger ); 

const_by_mcnu  ->  Insert  ( new  PuUDownMenuCorrunand  (constraintjby,  "Output  Guard",  "G") ); 

const_by__mcnu  ->  Insert  ( constjby_finish  ); 

const_by_mcnu  ->  Insert  ( const_by_min ); 

constjbyjmcnu  ->  Insert  ( const ^by^max ); 

const_by_mcnu  •>  Insert  ( const_by_pcriod ); 

constjby  ^menu  ->  Insert  ( new  PullDownMenuCommand  (constraintjby,  "Exception  Condition",  "X") ); 
const jby_mcnu  ->  Insert  ( const  jty_timer  ); 
constraintjby  ->  SctMcnu  ( const jby_mcnu  ); 


Scene  ‘strcam_menu  =  new  VBox; 

strcam_mcnu  ->  Insert  (new  LabelCommand  (stream,  c,  rak )); 
//strcam_menu  ->  Insert  (new  PuUDownMcnuDivider); 
stream_menu  ->  Insert  (latency  ); 
stream  ->  SetMenu  (stream_menu); 

Scene  •  latency _mcnu  =*  new  VBox; 

latcncy_mcnu  ->  Insert  ( new  LHourCommand  O^toicy ,  e,  mk )); 

If  latency  jmenu  ->  Insert  (new  PullDownMenuDivider); 
latency _mcnu  ->  Insert  ( new  LMinuteCommand  (latency ,  c,  mk  )); 

//  latency  jmenu  ->  Insert  (new  PullDownMenuDivider); 
latency  jmenu  ->  Insert  ( new  LSecondCommand  Oatency ,  c,  mk )); 

//  latency  jmenu  ->  Insert  (new  PullDownMoiuDivider); 
latency  jmenu  ->  Insert  ( new  LMili  jSecCommand  (latmcy ,  c,  ndc )); 
//  latcncy_mcnu  ->  Insert  (new  PullDownMenuDivider); 
latency _menu  ->  Insert  ( new  LMicro_SecCommand  (latency ,  e,  mk  )); 
latency  •>  SetMenu  ( latency  jmenu); 


Scene  *trigger_menu  «  new  VBox; 

trigger  jmenu  ->  Insert  ( new  IfComnuuid  (  const jbyjtrigger,  e,  mk)); 

trigger  jmenu  ->  Insert  ( new  ByjAllCommand  (  const  jbyjtrigger,  e,.mk)); 
trigger_menu  ->  Insert  ( new  By  jSomeCbmmand  (  const_by  jtrigger,  e,  mk)); 
const  jbyjtrigger  ->  SetMenu  ( trigger  jmenu); 

Scene  ‘met  jmenu  *  new  VBox; 

mct_m«iu  •>  Insert  ( rtew  HourCommand  (op jSpeCjmet ,  e,  mk  )); 

//  met  jmenu  ->  Iitsert  (new  PullDownMenuDivider); 

met  jmenu  *>  Insert  ( rrew  MinuteCommand  (op  jSpec jmet ,  e,  mk  )); 

//  met  jmenu  *>  Insert  (new  PullDownMenuDivitfer); 
met  jtnenu  >>  Insert  ( new  SecondCommand  (opjSpeCjmet ,  e,  mk )); 

//  met  jmenu  ->  Insert  (new  PullDownMenuDivider); 


76 


met_mcnu  ->  Insert  ( new  MiIi_SccCommand  (op_spcc_mct ,  c,  mk )); 

//  met_mcnu  ->  Insert  (new  PullDownMenuDividcr); 
mct_menu  ->  Insert  ( new  Micro_SecCommand  (op_spec_mct ,  e,  mk  )); 
op_spcc_met  ->  SetMenu  ( mct_menu); 

Scene  *finish_menu  ■  new  VBox; 

finish_mcnu  ->  Insert  ( new  HourConunand  ( const_by_finish,  c,  mk)); 

/^ish_mcnu  ->  Insert  (new  PullDownMenuDividcr); 

finish_menu  ->  Insert  ( new  MinuteCommand  ( const_by_finish»  c,  mk)); 

/^ish_mcnu  ->  Insert  (new  PullDownMenuDividcr); 

finish.menu  ->  Insert  ( new  SecondCommand  ( const_by_finish,  c,  mk )); 

/Ainish_mcnu  ->  Insert  (new  PullDownMenuDividcr); 

finish_maiu  •>  Insert  ( new  Mili_SecCommand  ( const_by_finish,  e,  mk)); 

//finish„mcnu  ->  Insert  (new  PullDownMenuDividcr); 

finish_menu  ->  Insert  ( new  Micro_SccCommand  ( const_by_finish,  c,  mk)); 

constJby_finish  ->  SelMcnu  (  finish_menu); 

Scene  *pcriod_mcnu  «  new  VBox; 

period_menu  ->  Insert  ( new  HourCommand  (  const_by  ^period,  c,  mk)); 

/^criod_menu  ->  Insert  (new  PullDownMenuDividcr); 

period_menu  ->  Insert  ( new  MinuteCommand  (  const_by_pcriod»  e,  mk)); 

//pcriod_mOTiU  ->  Insot  (new  PullDownMenuDividcr); 

periodjmenu  ->  Insert  ( new  SecondCommand  ( const_by_period,  c,  mk )); 

//period_mcnu  ->  Insot  (new  PullDownMenuDividcr); 

period_menu  ->  Insert  ( new  Mili_SccCommand  ( const_by4)eriod,  c,  mk)); 

/periodjmenu  ->  Insert  (new  PullDownMenuDividcr); 

period_menu  ->  Insert  ( new  Micro_SecCommand  ( const Jbyjpcriod,  e,  mk)); 

constjby_pcriod  ->  SetMenu  (  pcriod_mcnu); 

Scene  *min_mcnu  ■  new  VBox; 

min_raenu  ->  Insert  ( new  HourCommand  ( constjbyjmin,  e,  mk)); 

//min_mcnu  ->  Insert  (new  PullDownMcnuDivider); 

min_mcnu  ->  Insert  (  new  MinuteCommand  (  const_by_min,  e,  mk)); 

/Anin_mcnu  ->  Insert  (new  PullDownMenuDividcr); 

min_.menu  ->  Insert  (new  SecondCommand  (  const jby_min,  c,  mk)); 

//min  jmenu  ->  Insert  (new  PullDownMcnuDivider); 

min_menu  ->  Insert  ( new  NCli^SccCommand  ( corjst_by_min,  e.  mk)); 

//min  jincnu  ->  Insert  (new  PullDownMcnuDivider); 

min ^menu  ->  Insert  ( new  Micro_SccCominand  ( const_by jmiu  c*  mk)); 

const_by_min  ->  SetMenu  ( min_menu); 

Scene  •max ^menu  =  new  VBox; 

max ^menu  ->  Insert  ( new  HourCommand  ( const jby_max,  e.  mk)); 

/Anax_maiu  ->  Insert  (new  PullDownMcnuDivider); 

max_menu  ->  Insert  ( new  MinuteCommand  ( const^by ^max,  e,  mk)); 

/Anax_mcnu  ->  Insert  (new  PullDownMenuDividcr); 

max_menu  ->  Insert  (new  SectmdCommand  (const_byjmax,  e,  mk)); 

/Anax_menu  ->  Insert  (new  PullDownMcnuDivider); 

max_mcnu  ->  Insert  ( new  Mill ^SecCbrnmand  ( c<Mistjby_max,  c«  mk)); 

/Anax_mcou  ->  Insert  (new  PullDownMcnuDivider); 

max_menu  ->  Insert  ( new  Micro ^SecCommand  ( const  jby_max»  e,  mk)); 

constjbyjmax  ->  SetMenu  ( max_mcnu  ); 


Scene  •generic ^menu  ■  new  VBox; 

Scene  •input  jincnu  *  new  VBox; 

Scene  •output_menu  *new  VBox; 

generic_menu  ->  Insert  ( new  IntegerCommand  (  opj^ec^gencric » c  onk  )); 

//  gcncric_mcnu  •>  Insert  (new  PullDownMcnuDivider); 

generiCjmenu  •>  Insert  ( new  RealCommand  ( op_spcc_gcneric ,  c  jmk )); 

//  generiCjmenu  ->  Insert  (new  PullDownMaiuDividcr); 

generic ^menu  ->  Insert  ( new  BooleanCommand  ( op  jSpcc__gaicric » e  ^nk )); 

//  generic ^menu  ->  Insert  (new  PullDownMcnuDivider); 
generic ^menu  ->  Insert  ( new  User^DefinedCommand  (  op  jSpeCjgencric ,  e  joak  )); 

input_menu  -> Insert  (new IntegerCommand  ( ^spcc jinput  .e^nk)); 

//  input_menu  ->  Insert  (new  PullDownMcnuDivider); 

mput_mcnu  ->  Insert  (  new  RealCommand  ( op  jSpcc_input  » c  jnk  )); 

//  input ^menu  ->  Insert  (new  PullDownMcnuDivider); 

inputjmenu  -> Insert  ( new  BooleanCommand  ( op_spcc_irrput  ,  e  4nk )); 

//  mput^menu  ->  Insert  (new  PullDownMcnuDivider); 
input_menu  ->  Insert  ( new  Uscr^DefinedCommand  ( op jSpcc_input  ,  e  jnk )); 

output ^menu  ->  Insert  (  new  IntegerCommand  (  op^speCjOutput ,  c  ^  )); 

//  output_menu  ->  Insert  (new  PullDownMcnuDivider); 
outputjinenu  *>  Insert  ( new  RealCommand  ( op ^spcCjOUtput ,  c  4nk )); 
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//  ou^)ut_mcnu  ->  Insert  (new  PullDownMcnuEHvider); 

outpat^menu  ->  Insert  (  new  BooleanCommand  ( op_spec_ouq>ut » c  41^  )); 

//  output_menu  ->  Insert  (new  PuIlDownMoiuDividcr); 
output_mcnu  ->  Insert  (  new  User_DefincdCoininand  ( op_spec_output ,  c  onk  )); 
op_spec_^cneric  ->  SctMoiu  {  generic_m«iu); 
op_spec_input  ->  SetMcnu  ( input_mcnu  ); 
op_spec_output  ->  SetMenu  ( output_nienu ); 


Scene  ♦  timer_menu  =  new  VBox; 

tinier_inenu  ->  Insert  ( new  Reset JfimerContiinand  ( consl_by_timer  ,e  jiJc )); 
timer_menu  ->  Insert  ( new  StanJIimeiComnnand  ( const_by_timer  ,e  ^ )); 
timerjmenu  ->  Insert  ( new  Stop JfimerCommand  ( constJby_tinjcr  ,e  jnk )); 
const_by_timcr  ->  SetMenu(  timerjmenu ); 

Scene*  protmenu  •=  new  VBox; 
protmmu  ->Inscrt(ncw  OpoiCommand  (prot,  e,  mk)); 
protmenu  ->Insert{ncw  CommitCommand  (prot,  c,  mk)); 
protmenu  ->Insert(new  PrintCommand  (prot,  e,  mk)); 
protmenu  ->Insert(new  PuIlDownMcnuDivider); 
protmenu  ->Inserl(new  QuitCommand  Q)rot,  mk)); 

Scene*  editmenu  =  new  VBox; 
editmenu->Insert(new  DclcteCommand(edit,  c,  mk)); 
cditmenu->Insert(new  SelcctAllConunand(cdit,  e,  mk)); 

Scene*  graphiesmenu  *  new  VBox; 

PuIlDownMoiuActivator*  font  *  new  PulIDownMenuActivator  (  graphics  ,  'Tont”); 
PullDownMcnuActivator*  fgcolor  «  new  PulIDownMenuActivator  (graphics,’*FgColor''); 
PulIDownMenuActivator*  bgcolor  *  new  PulIDownMenuActivator  ( graphics .  ’BgColor"); 

Scene*  fontmenu  *  new  VBox; 

MapIFont*  mf  =  statc*>GetMaplFontO; 

for  (IFont*  f  *  mf->FiistO;  Imf->AtEndO;  f  *  mf->NcxtO) 

I 

fontmcnu->Inseit(ncw  FontCommand(font,  e,  f)); 

I 


/*  Scene*  pattemmenu  =  new  VBox; 

MapIPattem*  mp  *  state->GetMapIPattcmO; 

for  (IPattem*  p  *  mp‘>First();  Imp->AtEndO;  p  *  mp->NcxtO) 

I 

pattemmcnu*>Inseit(new  PattcmConunand(pat,  c,  p»  state)); 

]V 

Scene*  fgcolormcnu  *  new  VBox; 

MapIColor*  mfg  *  state->GrtMapIFgColorO; 

for  (IColor*  fg  =  mfg->FirstO;  !mfg->AtEnd();  fg  -  mfg-:^cxtO) 

I 

fgcolonnaiu->Inscrt(ncw  FgCo1oiCommand(fgcolor,  e,  fg)); 


Scene*  bgcolormcnu  *  new  VBox; 

MapIColor*  mbg  =  state->GetMapIBgColoK); 

for  (IColor*  bg  =  mbg->FirstO;  lmbg->AtEndO;  bg  =  mbg->NextO) 


I 

\ 


bgcolormenu->Inscrt(new  BgCoIorCommand(bgcolor,  e,  bg)); 


font  ->  SetMenu  (fontmenu); 
fgcolor  ->  SetMenu  (fgcolormenu); 
bgcolor  ->  SetMenu  (bgcolormcnu); 

graphiesmenu  ->  Insert  (font); 
graphiesmenu  ->  Insert  (fgcolor): 
graphiesmenu  ->  Insert  (bgcolor); 


Scene*  optionmenu  «  new  VBox; 
optionmcnu->Insert(new  ReduceCommand 
optionmenu->Insert(new  £nIarg^3ommand 
optionmcnu->InscTt(new  NormalSizeCotnmand 
optionmenu ->lnsert(ncw  ReduceToFitC!!oinmand 
optionmcou->Inscrt(new  (^tetPageCommand 


(option,  e,  mk)): 
(option,  e,  ndc)); 
(option,  e,  mk)); 
(option,  e,  mk)); 
(option,  c,  mk)); 
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optioninenU'>Inseit(new  RedrawPageCommand  (option,  e,  mk)); 

optionmenu->In5ert(new  PullDownMenuDividcr); 
optiofimenu->Inseit(new  GriddingOnOfTConunand  (option,  e,  mk)); 
optionincnu->Itiscit(iicw  GridVisibleInvisiblcComniand(option,  e,  mk)); 
optionmenu->Inseit(new  GridSpacingCommand  (option,  e,  mk)); 
optionmenu->ln5eit(new  OrientationConunand  (option,  e,  mk)); 
optionmenu->lnsert(new  ShowVcrsionConunand  (option,  c,  mk)); 


property  ->  SetMenu  (propertymcnu); 
prot  ->  SetMenu  (protmenu); 
edit  •>  SetMenu  (editmenu); 

//  pat  •>  SetMenu  (pattemmenu); 
graphi  cs->SetMenu(giaphicsmenu); 
option  >>  SetMenu  (optionmenu); 


Scene*  activators  »  new  HBox; 

activatois->Inscrt(property); 

activator5*>Insert(prot); 

activatois>>lnseit(edit); 

activators>>lnsert(graphics); 

//  activatoiB->lnsert(font); 

//  activators->Insert(pat); 

//  activatorB>>lnsert(fgcolor); 

//  activatois>>Insert(bgcolor); 
activatois->Insert(opt!on); 

Insert(activators); 

I 


//  Reconfig  makes  Commands'  shape  unstietchable  but  shrinkable. 

void  Conunands::Reconfig  ()  | 

PuUDownMenuBanrReconfigO; 
shape->Rigid(hfi1, 0,  0, 0); 


CommentlIsLh 


fihidef  conuncntlist_h 
#dehne  commentlist_h 


#include  "listh" 


class  Selection; 
class  Texts  election; 

class  CommentNode  :  public  BaseNode  ( 
public; 

CommentNodeCTextSelection*  ts)  ( txtsel  «*  ts;  ) 
boolean  SameValueAs(void*  p)  {  return  txtsel  **  p;  } 
TextSelection*  GetSelectionO  |  return  txtsel;  } 

protected: 
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TcxtSclcction*  txtsel;  //  points  to  an  operator  selection 

}; 


class  CommentList :  public  BaseList  { 
public: 

ConunentListO; 

void  Append CConuncntNode  *); 
CommentNode*  First(); 
CommentNode*  LastQ; 
ConimentNode*  Prev(); 
Comm«)tNode*  NextQ; 
CommeotNode’*'  GetCurQ; 
CommentNode*  Index(int); 
void  RemoveCTextSelection*); 
void  SelCur(TcxtSelection*); 

); 


inline  void  CominentList;:Append(CoinmentNodc  *cn)  { 
Basel]  St:  :Append(cn); 

) 


inline  CommentNode*  CommentList:  :Rrst()  { 
return  (CommaitNode*)  BaseList: dFiist(); 

I 


inline  CommentNode*  CommentList:  :LastO  I 
return  (CommentNode*)  BaseList:  ±>astO; 

I 

inline  CommentNode*  (^mmentList::Prcv()  | 
return  (CommentNode*)  BieeList:  J’revO; 

} 

inline  CommentNode*  OmmentList::NextO  { 
return  (CommentNode*)  BaseList:  J4ext0; 

} 

inline  CommentNode*  CommentList:  :GetCurO  { 
return  (CommaitNode*)  BaseList: :GctCurO; 

I 


inline  CommentNode*  CommentList:  :Index(int  index)  ( 
return  (CommentNode*)  Ba5eList:Jndex (index); 

I 

#end 


Commentiistc 


#include  *'commentlisUi" 

#include  "sclcction.h‘’ 

#include  "sltexth'‘ 

CommentList:  :CommentLis^  :BaseList()  { 

) 

//  Remove  an  operator  from  the  list  of  operator  selections 

void  CommcntList::Remove(TextSeiection*  ts)  { 
SetCuKts); 
if  (lAtEndO)  I 
DelcteCurO; 

delete  ts; 

) 

I 


void  CommaitList::SctCor(TcxtSelection  *ts)  | 
for  (CommentNode  *cn  » Inrst();  1  AtEndQ;  cn  ■  NextQ) 
if  (ts  «  cn->GetSelectionO)  break; 

1 

dfd^defsJi 

#ihidef  dfd_defs_h 
#define  dfd_dcfs_h 


#include  <Inter'^ews/defsJh> 


//  pixel  radius  of  operator  (ellipse) 

#define  OperatorRadius  35 

//  number  of  characteis  in  PSDL  representation  of  operator 
#define  TXTBUFLEN  5000 

//  max  number  of  prototypes  in  prototype  directory 
idefineMAXPRCrrOTYPES  100 


//  name  of  scratch  file  used  to  edit  PSDL  for  operator 
tdefine  PSDL_FILE  "psdl.scratch" 

//  maximum  length  of  message  for  message  block 
tdefine  MAXMSGLEN  150 

//  name  of  scratch  file  used  to  write  PSDL  streams 
tdefine  STR£AMS_FILE  "streams^ciatch" 

//  name  of  scratch  file  used  to  write  PSDL  mets 
tdefine  MET_FILE  "mets.scratch" 

//  name  of  scratch  file  used  to  write  PSDL  constraints 
tdefine  CONSTRAINTS_FILE  "constraints^ratch" 

//  name  of  file  extensions 


tdefine  GRAPH_EXT  ".ps" 
tdefine  GRAPH^EXT_LEN  3 
tdefine  IMP^PSDLJEXT  ".imp.psdl" 
tdefine  IMP.EXT.LEN  9 
tdefine  SPEC_PSDL_EXT  ".spcc.psdl” 
tdefine  SPEC^EXT^LEN  10 
tdefine  DFD_EXT  ".graph" 
tdefine  DFD^EXT.LEN  6 

//  keywords  to  be  inserted  when  creating  PSDL 
tdefine  OPER  TKN  "OPERATOR  " 
tdefine  SPEC_TKN  "  SPE(nnCATION\n" 
tdefine  INPUT^TKN  "  INPUTSn" 
tdefine  OUTPUT  TKN  "  OUTPUTV" 

tdefine  ST^TKN  "  STATESNn  UNDEFINED^ID :  UNDEFINED_TYPE\n  INHlALLYNn  UNDEFINED.EXPRESSIONNn" 

tdefincMETJTKN  "  MAXIMUM  EXECUTION  TIME  " 

tdefine  DESCJTKN  "  DESCRIFnON  " 

tdefine TEXTjnCN  "|  UNDEFINED_TEXT  J\n" 

tdefine  END.TKN  •'ENDyn" 

tdefine  IMP.TKN  "IMPLEMENTAnONVn" 

tdefine  GR_TKN  "GRAPHVn" 

tdefine  VER.TKN  "  VERTEX  " 

tdefine  EDGE_TKN  "  EDGE  " 

tdefine  ID.TKN  "UNDEFINED.ID" 

tdefine  EXT.TKN  "EXTERNAL" 

tdefine  TYPE  DECLJTKN  "UNDEFINED_ID  :  UNDEFINEDJTYPE" 
tdefine  IMP.^AJTKN  "  IMPLEMENTATION  ADA  " 
tdefine  STREAM  TKN  "  DATA  STREAMVn" 
tdefine  CONJTKN  "  CONTROL  CONSTRAINTSVn" 
tdefine  CON_OP_TKN  "  OPERATOR  UNDEFINED_IDVn" 

tdefine  TRIGGERJTKN  "  TRIGGER  CONDITION  V 

tdefine  TRIGGER_IF_TKN  "  TRIGGER  IFVn  " 

tdefine  TRIGGER_BY_ALL_TKN  "  TRIGGER  BY  ALLNn" 

tdefine  TRIGGER  B Y_SOME_TKN  "  TRIGGER  BY  SOMESn  " 

tdefine  FORMAL^TKN  "  FORMAL  V 

tdefine  INFORMAL^TKN  "  INFORMALVn  " 

tdefine  PERIOD.TKN  "  PERIOD  \n" 

tdefine FINISH^WrraiN.TKN  "FINISH WITOINV 

tdefine  MAX  RES  TIM.TKN  "  MAXXIMUM  RESPONSE  TTMENn" 

tdefine  OUTPUT.GUARD^TKN  "  OUTPUT  GUARIAn  " 


//  keywords  to  be  used  for  search  through  KDL  text  buffer.  They  arc 
//  dilTerent  from  those  above  because  the  text  buffer  can’t  ever  locate 
//  newlines 

tdefine  INPUT  SCH  TKN  •INPUT' 
tdefine  SPEC  JCH^TKN  •‘SPECIFICATION" 
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#dcfinc  oirmrr_scH_TKN  ''output’ 

#dcfincGEN_SCH_TKN  "GENERIC 
#dcfinc  STATES_SCH_TKN  "STATES" 

#dcfine  EXCEPT_SCH_TKN  "EXCEPnONS" 

#dcfinc  MET_SCH  TKN  "MAXIMUM  EXECUTION  TIME  " 

#dcfine  MCP  SChItKN  "MINIMUM  CALLING  PERIOD" 
tdcfineMRT^SCH.TKN  "MAXIMUM  RESPONSE  TIME" 
#dcfincKEY_SCH_TKN  "KEYWORDS" 

#dcfineDESC.SCH_TKN  "DESCRIPHON" 
tdcfine  AX_SCH_TKN  "AXIOM" 

#defincEND_SCH_TKN  "END" 

tdefinc  STREAM^SCHJTKN  'DATA  STREAM' 

#dcfincTIMER_SCH,TKN  ’TIMER" 

#defmcCON^SCH_TKN  "CONTROL  CONSTRAINTS" 

#definc  TRIGGER^SCHJTKN  "  TRIGGER  CONDITION  " 

tdcfinc  FMSH_WrrHIN^SCH_TKN  "  FINISH  WITHIN  " 
#dcfineTRIGGER^IF_SCH_TKN  "TRIGGER IF" 
#dcfmcTRIGGER_BY_ALL_SCH_TKN"  TRIGGER  BY  ALL  " 
#dcfineTRIGGER_BY^SOME„SCH^TKN  "  TRIGGER  BY  SOME  " 

#dcfine  FORMAL_SCH„TKN  "  FORMAL" 

#dcfine  INFORMAL_SCH_TKN  "  INFORMAL  " 

tdcfoic PERIOD  SCHJIKN  "PERIOD" 

#dcfincMAX^RES_TIM_SCCH_TKN  "  MAXXIMUM  RESPONSE  TIME  " 
#dcfineOUTPUT_GUAF5)_.SCH^TKN  "  OUTPUT  GUARD  " 


#deluie  MET_SDE  "psdLeditor" 
#dcfine  STREAMS.SDE  "psdl_cditor" 
#dcfincCONSTRAINTS.SDE  "psdl.editor" 
#dcfinc  SPECIFICAnON.SDE  "psdLeditor" 
#endif 


dfd  classesii 


*  Changes  made  by :  Mehdi  Rowshanacc 

*  September  1994 

* 

*/ 

#ifiidef  dfdclasscs_h 
#define  dfdclasses_h 

static  const  int  OPERATOR  *  2050; 
static  const  int  TERMINATOR  *  205 1 ; 
static  const  int  DATAFLOW_SPLINE  *  2052; 
static  const  int  SELFLOOP  ■  2053; 
static  const  int  LABEL_OP  «  2054; 
static  const  int  LABEL_DF  *  2055; 
static  const  int  LABEL_SL  *  2056; 
static  const  int  COMMENT  ■  2057 ; 

static  const  int  MET_OP  «  2058; 
static  const  int  LAT_DF  *  2059; 
static  const  int  END_MARKER  *  2098; 
static  const  int  NONE  *  2099; 

static  const  int  TRIG_IF_CONS  21 01 ; 

static  const  int  TRIG_AL_CONS  *  21 02; 
static  const  int  TRIG_SM_CONS  *  2103; 

#endir 


dialogboxJi 


#ifhdef  dialogbox_h 
#define  dialogbox_h 

#inciude  <JntcrViews/filcchooscr.h> 


//  Declare  imported  types. 

class  BuuonState; 
class  IMessage; 
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class  String^itor; 


//  A  DialogBox  knows  how  to  set  its  message  and  warning  text  and  how 
//  to  pop  up  itself  over  the  underlying  Intcfactor. 

class  DialogBox  ;  public  MonoScene  ( 
pi^lic: 

void  SetMessage(const  char*  «  nil»  const  char*  *  nil); 
void  SetWaming(const  char*  «  nih  const  char*  ^  nil); 
void  SctUndcriying(Intcractor*); 

protected: 

DialogBox(Interactor*,  const  char*  »  nil); 

void  PopUpO; 
void  DisappearO; 

IMessage*  message;  //  displays  message  text 

message*  warning;  //  displays  warning  text 

Interactor*  underlying;//  wc'll  insert  ourselves  into  its  parent 


//  A  Messager  displays  a  message  until  it's  acknowledged. 

class  Messager :  public  DialogBox  { 
public: 

Messager(Interactor*,  const  char*  «  nil); 

«'MessagerO; 

void  DispIayO; 

protected: 

void  lnit(); 
void  ReconfigO; 

ButtonState*  ok;  //  stores  status  of  "ok"  button 

Interactor*  okbutton;//  displays  "ok"  button 


); 


//  A  Conhimer  displays  a  message  until  it's  conhimed  or  cancelled 

class  Confirmer :  public  Dialoj^ox  | 
public: 

Confirmerflntcractor*,  const  char*  «  nil); 

--ConfinnerO; 

char  ConfirmO; 

protected: 

void  InitQ; 
void  ReconfigO; 

ButtonState*  yes;  //  stores  status  of  "yes"  button 

ButtonState*  no;  //  stores  status  of  "no"  button 

ButtonState*  cancel'^/  stores  status  of  "cancel"  button 

Interactor*  yesbutton*^/  displays  "yes"  button 

Interactor*  nobutton;//  displays  "no"  button 

Interactor*  cancelbutton;//  displays  "cancel"  button 


//  A  Namer  displays  a  string  until  it's  edited  or  cancelled. 

class  Namer ;  public  DialogBox  { 
public: 

Namerflnteractor*,  const  char*  «  nil); 

-NamerO; 
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char^  £dit(const  char*); 
protected; 
void  lnit(); 

void  ReconhgO; 

ButtonState*  acccpt^H  stores  status  of  "accept”  button 
ButtonState*  cancel;//  stores  sutus  of  "cancel”  btrtton 
Interactor*  acceptbutton;//  displays  "accept"  button 
Interactor*  cancelbutton;// displays  "cancel"  button 
StringEditor*  stringcditor;// displays  and  edits  a  string 


//  A  Finder  browses  the  file  system  and  returns  a  file  name. 

class  I^der  :  public  FileChooser  { 
public: 

Finderdnteractor*,  const  char*); 
const  char*  FindQ; 
protected: 

Intcractor*  InteriorQ; 

boolean  PopupGBvent&,  boolean  » true); 

protected: 

Interactor*  underlying;//  we'll  insert  ourselves  into  its  parent 


//  A  Qiooser  displays  a  set  of  choice  and  are  displayed  until  one  is 
//  chosen  or  is  cancelled. 

class  Chooser ;  public  DialogBox  { 
public: 

Chooser^teractor*,  const  char*,  const  char*,  const  char*,  const  char*); 
-QiooserO; 

dtar  ChooseO; 

protected: 

void  lnit(); 
void  ReconfigO; 

ButtonState*  bs^l; 

ButtonState*  bs_2; 

ButtonSute*  cancel;//  stores  status  of  "cancel”  bmton 
Intcractor*  button_l;//  displays  first  button 
Intcractor*  button  JU/  displays  second  button 

Intcractor*  cancelbutton;//  displays  "cancel"  button 


//  stores  status  of  first  button 

//  stores  status  of  second  button 

ButtonState*  b6_3;  //  stores  status  of  third  button 


Intcractor*  button_3;  //  displays  third  bittton 


I; 

#cndif 


dialogbox.c 

#include  "dialogbox.h" 
tinclude  "istringJi" 

#include  <lnterVicws/boxJi> 
#include  <InterViews/button  Ji> 
#include  <Intcr\^ews/canvasJi> 
#include  <lntcrVicws/evcnt.h> 
tinclude  <interA^cws/rontJi> 
#include  <Inter'\^ews/framcJi> 
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#include  <InterViews/glue-h> 
tinclude  <IntcrVicwsAncssageJh> 

#include  <Inlcr\ricws/paiiitcrit> 

#include  <IntcrVicws/sensonh> 

#include  ^tcr'N^ews/fehapcJi> 
tincludc  <IntcrViews/streditorii> 

#includc  <IntcrVicws/worldJi> 

#inc1ude  <lntcrVicws/Std/os/fs.h> 

#include  <5ys/param.h> 

f* 

*  An  IMessage  displays  its  own  text,  not  semaebody  elsc's. 

V 

class  IMessage :  public  Message  { 
public: 

lMessage(const  char*  «  nil.  Alignment  a  *  Center); 

-IMessageO; 

void  SetText(const  char*  «  nil,  const  diar*  «  nil); 
protected: 

char*  buffer,  /*  copy 

1; 


/* 

*  IMessage  creates  a  buffer  to  store  its  own  copy  of  the  text 

*/ 

IMessage: ^Message  (const  char*  msg.  Alignment  a) :  Messagefnil,  a)  { 
buffer  *  strdup(msg  ?  msg  : ""); 
text «  buffer; 

) 

/* 

*  Free  storage  allocated  for  the  text  buffer. 

*/ 

IMessage:  :~IMessage  0  1 
delete  buffer, 

1 


/* 

*  SetText  stores  the  new  text  and  changes  thelMessage's  shape  to  fit 

*  the  new  text's  width. 

*/ 

void  IMessage::SetText  (const  char*  beg,  const  char*  aid)  f 
beg  «=  beg  ?  beg : 
end  =  end  ?  end  : 
delete  buffer; 

buffer  *  new  char[strlen(beg)  +  strlen(end)  +  1]; 
stncpy(buffer,  beg); 

5trcat(buffer,  end); 
text «  buffer; 

if  (canvas  !=  nil  &&  canvas->StatasO  *=  C^vasMapped)  { 
ReconfigO; 

ParentO->Changc(this); 

I 

) 


/* 

*  DialogBox  creates  two  IMessages  to  display  a  message  and  a  warning 

*  and  stores  its  underlying  Interactor.  DialogBox  won't  delete  the 

*  IMessages  so  its  derived  classes  can  put  them  in  boxes  whidi  will 

*  delete  them  when  the  boxes  are  deleted. 

*/ 

DialogBox:I>ialogBox  (Intcractor*  u,  const  char*  msg)  { 

SaCanvasTypc(CanvasSavcUndcr);  /*  speed  up  expose  redrawing  if  possible  */ 
input  K  allEvents; 

inpui->RefcrenceO; 
message  *  new  IMessage(msg); 
warning  *  new  IMessage; 
underlying  «  u; 

1 
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/* 

♦  SetMessage  sets  the  message's  text. 

♦/ 

void  DialogBox::SetMessage  (const  char*  beg,  const  char*  end)  { 
mcssage->SetText(beg,  end); 

I 


r 

•  SetWaming  sets  the  warning's  text. 

*/ 

void  DiaIogBox::SctWaming  (const  char*  beg,  const  char*  cod)  { 
waming->SctTcxt(bcg,  end); 

I 

/* 

*  SctUndcriying  sets  the  tmderlying  Intcractor  over  which  the 

♦  DialogBox  will  pop  up  itself. 

*/ 

void  I>ialogBox::SctUnderlying  (Interactor*  u)  ( 
underlying  ■  u; 

) 


/* 

*  Popup  pops  up  the  DialogBox  centered  over  the  underlying 

*  Interactor's  canvas. 

*/ 

void  DialogBox:d^opUp  0  ( 

World*  world  **  underlying->GctWoridO; 

Coord  X,  y; 

underlying->Align(Ccntcr,  0, 0,  x,  y); 
undcrlying->GetRclative(x,  y,  worid); 
world->InscitTransient(this,  underiying,  x,  y.  Center); 

} 


/* 

*  Disappear  removes  the  DialogBox.  Since  the  user  should  sec 

*  warnings  only  once.  Disappear  clears  the  warning's  text  so  the  next 

*  PopUp  won't  display  it 

*/ 

void  DialogBox: ^Disappear  0  { 

ParcntO->Rcmove(this): 

SetWamingO; 

SyncO; 

} 


/* 

*  Messager  creates  its  button  state  and  initializes  its  view. 

*/ 

Mcssagcr::Mcssager  (Intcractor*  u,  const  char*  msg) :  DialogBox(u,  msg)  { 
ok  »  new  ButtonState(false); 
okbutton  *  new  PushButt(m("  OK  ",  ok,  true); 

InitO; 

I 

r 

*  Free  storage  allocated  for  the  message's  button  state. 

*/ 

Messager:  :-Mcssagcr  0  I 
Unref(ok); 

I 

/• 

*  Display  pops  up  the  Messager  and  rwnoves  it  when  the  user 

*  acknowledges  the  message. 

*/ 

void  MessagerDisplay  ()  { 
ok->S  ct  Va  iuc(falsc) ; 
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PopUpO; 


int  okay  »  false; 
while  (lokay)  { 

Event  c; 

Read(e); 

if  (e.evcntType  *=  KeyEvent  &&  c.!«i  >  0)  | 
switch  (e.keystnng[0])  { 

case  V:  ^  */ 

caseW: 

ok->Sct\^luc(true); 

break; 

default: 

break; 

) 

)  else  if  (c.targct  —  okbutton)  { 
e.target>>Handle{e); 

1 

ok->GetValue(okay); 


DisappearO; 

) 


/• 

•  Init  composes  Messager's  view  with  boxes,  glue,  and  frames. 

V 

void  Messagen  Jnit  0  { 

SetClassName("Messager'*); 

VBox*  vbox  =  new  VBox; 
vbo  X ->  Align(Center); 
vbox->Insert(ncw  VGlue); 
vbox->Insert(  warning); 
vbox->Inscrt(ncw  VGlue); 
vbox->Inscrt(messagc); 
vbox~>Inscrt(ncw  VGlue); 
vbox->Inscrt(okbutton); 
vbox->Inscrt(new  VGlue); 

Inseit(new  Framefvbox,  2)); 

) 


Z* 

*  Reconfig  pads  Messager's  shape  to  make  the  view  look  less  crowded. 

V 

void  MessageriReoonfig  0  I 
DialogBox::ReconfigO; 

Font^  font  *  output->GetFont(); 
shapc->width  +*  2  *  font->Width("mmmm"); 
shape‘>height  +«  4  *  foot->JIcightO; 

1 

Z* 

*  Confirmer  creates  its  button  states  and  initializes  its  view. 

V 

Confirmer::Coofijmcr  (Intcractor*  u,  const  char*  prompt) :  DialogBoxfu,  prompt)  | 
yes  ■  new  Buttons tate(false) ; 

m  new  ButtonState(false); 

cancel  »  new  ButtonStateffalse); 

yesbutton  «  new  PushButtonf  Yes  ",  yes,tme); 
nobutton  *  new  PushButton("  No  ",  no,  tiue); 
cancelbutton  >■  new  PushButton("Cancel",  cancel,  trae); 

InitO; 

I 

r 

*  Free  storage  allocated  for  the  button  states. 

•Z 

Confinncr::-Confinner  0  I 
Unreffyes); 
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Unref(no); 

Unrcf(canccl); 

} 

Confirm  pops  up  the  Confirmer,  lets  the  user  confirm  the  message  or 
•  not,  removes  the  Confirmer,  and  returns  the  confirmation. 

*I 

char  Confirmen:Confinn  ()  | 
yes->SctValuc(false); 
no->SctValuc(falsc); 
cancel ->SctValuc(falsc); 


HBox*  buttons  *  new  HBox; 
buttons->Inscrt(ncw  HGlue); 
buttons->In8ert(yesbutton); 
buttons->Insert(ncw  HGlue); 
buttons->Insert(nobutton); 
bultons->Insert(ncw  HGlue); 
buttons-54nscrt(cancelbutton); 
biittons->Insert(new  HGlue); 


VBox*  vbox  ■  new  VBox; 
vbox->Align{Ccnter); 
vbox>>Insert(new  VGlue); 


88 


vbox ->Insert(  warning) ; 
vbox->Insert(new  VGlue); 
vbox>>Inscrt(mcssagc); 
vbox->Inscrt(ncw  VGluc); 
vbox“>Inscrt(buttons); 
vbox->Inscrt(new  VGiuc); 

Insert  (new  Frame(vbox,  2)); 

} 


t* 

*  Reconfig  pads  Confirmer's  shape  to  make  the  view  look  less  crowded. 

*/ 

void  Confirmer:  :Rcconfig  ()  { 

DialogBo  x::ReconfigO; 

Font*  font «  ou^ut->GetFontO; 
shape->width  +■  4  *  font->Width(''mmmm"); 
shape->hcight  +«  4  ♦  font->HcightO; 

} 

f* 

*  Namer  creates  its  button  sUtes  and  initializes  its  view, 

♦/ 

Namer  :Namer  (Intcractor*  u,  const  diar*  prompt) :  DialogBox(u,  prompt)  { 
ticcept »  new  Butt<»iState(false); 
cancel  new  ButtonState(false); 
acceptbutton  —  new  PushButtonC  OK  ”,  accept,  true); 
cancelbutton  *  new  PushButton ("Cancel",  cancel,  tree); 
const  char*  sample  «  " 

stringeditor  -  new  StringEditor(accept,  sample,  "\007ND15"); 
stringcditor->Mcssagc(""); 

InitO; 

I 

/* 

*  Free  storage  allocated  for  the  button  states. 

♦/ 

Namen:-'Namer  ()  | 

Unref(acccpt); 

Unref(cancel); 

I 


t* 

*  Edit  pops  up  the  Namer,  lets  the  user  edit  the  given  string, 

*  removes  the  Namer,  and  returns  the  edited  string  unless  the  user 

*  cancelled  it 

V 

char*  Namer  Sdit  (const  char*  string)  ( 
acccpt->SetValue(false); 
canccl->SctValuc(falsc); 
if  (string  1=  nil)  { 

stringcditoi^>Mcssagc(string) ; 

I 

8tiingeditor->Sclect(0,strleo(stringcditor*>TcxtO)); 

PopUpO; 

int  accepted  «  false; 
int  cancelled  »  false; 
while  (!  accepted  &&  Icancelled)  { 
stringeditor->EditO; 
accept->GctValuc(accq>ted); 
if  (accepted  >007')  { 
accept>>SetValue(false); 
canccl->SetValuc(true); 

1  else  if  (accepted  *=  >015')  { 
accq)t->SeiValue(true); 
cancel->SetValue(false); 

)  else  { 

Event  c; 

Read(e); 

if  (e.target  acceptbutton  II  e.target «  cancelbutton)  { 
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e.targct->Handl  e(c) ; 


I 

acc^t->GctValuc(acccpted) ; 
caiicc)‘>GetValue(caiiceI)ed) ; 


Disappear(); 

char*  result  =  nil; 
if  (accepted)  { 

const  char*  text  *  stringcditor“>Text(); 
if(tcxt(0]  !=ND’){ 
result  =  strdiq>(text); 

I 

I 

return  result; 

I 

/* 

*  Init  composes  Namer*s  view  with  boxes,  glue,  and  frames. 

•/ 

void  Namcrdnit  0  I 
SetCiassName("Namer") ; 

HBox*  hboxedit  *  new  HBox; 
hboxedit->Inseit(new  HGlue(5, 0, 0)); 
hboxedit->Insert(stringeditor); 
hboxcdit->Inscrt(new  HGlue(5, 0, 0)); 

VBox*  vboxedit «  new  VBox; 
vboxedit->Inscit(ncw  VGlue(2, 0, 0)); 
vbox  edit->Inscrt(hboxedit); 
vboxodit->Iiiscrt(ncw  VGlue(2, 0, 0)); 

HBox*  buttons  «  new  HBox; 
buttons->Insert(new  HGlue); 
buttonS'>Inseit(accq)tbutton); 
buttons‘>Insert(new  HGlue); 
buttons->Insert(cancelbutton); 
buttonS’>lnsert(new  HGlue); 

VBox*  vbox  «  new  VBox; 

V  box ->Align  (Onter); 
vbox->Insert(ncw  VGlue); 
vbo  X ->Insert(  warning); 
vboX“>Inscrt(new  VGlue); 
vbox ->ln5ert(message); 
vbox->Inscrt(new  VGlue); 
vbox->Inscit{ncw  Frame(vboxedit,  1)); 
vbox->Insert(new  VGlue); 

V  box ->Inscrt(boltons); 
vbox->Inscrt(new  VGlue); 

vbox*>Propagatc(falsc);/*  for  reshaping  stringeditor  w/o  looping  */ 
Inseit(new  Frame(vbox,  2)); 

I 


/* 

*  Reconhg  pads  Namer's  shape  to  make  the  view  took  less  crowded 

*/ 

void  NamenrReconfig  0  I 
Dia  logBox :  :Reconfig0 : 

Shape  s  *=  *stringeditor->GetShapc(); 
s.RigidO; 

stringeditor>>Reshape(s) ; 

Font*  font «  output->GctFontO; 
shape->width  +»  2  *  font->Width(‘'mmmm‘*); 

8hape->height  4«  4  •  font>>HeightO; 

I 

static  const  char*  abspath  (ctmst  char*  file  ■  nil)  { 
const  int  bufsize  «  MAXPATHLEN+1; 
subc  char  bufibufsize]; 
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getcwd(buf,  bufsize); 
sticat(buf,  "Py, 

if  (file !«  nil){ 
strcat(buf,  file); 

) 

retum  buf; 

} 


Finder:  finder  { 

Inteiactor*  u,  const  char*  t 

) :  FilcChooscr(new  Button  State,  abspathQi  10, 24,  Center)  { 
underlying  «  u; 

Initf*",  t); 

Insert  (InteriorO); 

} 


static  const  char*  ChdiilfNcccssary  (Finder*  finder)  | 
static  char  buf[MAXPArHLEN+l]; 
const  char*  filoiame  «  finder->ChoiceO; 
sticpy(buf,  filoiame); 
char*  bufptr  *  stiTchr(buf, 

if  (bufptr  !=  NULL)  { 

*bufptr «  NO'; 
if  (chdir(buO  0)  { 

filename  »  ++bufptr; 
finde^>Message(abspath(filename)); 

I 

} 

finder*>SelectFileO; 
return  filename; 

) 

const  char*  Finderifind  0  I 
const  char*  name  «  nil; 

Event  e; 
if  (Popup(e))  { 

name  »  ChdirlfNecessaiyfthis); 

) 

retum  name; 

} 

Interactor*  Hnden  Interior  Q  { 

return  new  Frame(FileChooser:dnterior("  Open  ").  2); 

) 

boolean  Finder:  fopup  (Event&,  boolean)  { 

World*  world  *  underiying->GetWoridO; 

Coord  X,  y, 

underlying>>Align(Center,  0, 0,  x,  y); 
underlying->GetRelative(x,  y,  world); 
world<>lnMrtTran5ient(this,  underlying,  x,  y.  Center); 
boolean  accepted  «  AcceptQ; 
worid->Remove(this) ; 

SetTiUeC'"); 
retum  accepted; 

) 


/* 

*  CThooser  creates  its  button  states  and  initializes  its  view. 

*/ 

Chooser: :C^oser  (Interactor*  u,  const  char*  prompt,  const  dtar*  labcl_l. 

const  diar*  labcl_2.  const  char*  labcl_3) :  DialogBox(u,  prompt)  { 
bs_l  *  new  ButtonState(faIse); 

bs_2  ■  new  BattonState(fal$e); 

bs_3  <BnewButton$tate(faUe); 

cancel  «  new  ButtonState(false); 

button_l  «  new  PushButton(label_l,  bs_l,  true); 
button_2  »  new  PudiButton0abeL2,  bs_2,  true); 

button_3  *  new  PushButton(label_3,  bs_3,  true); 

cancelbutton  «*  new  PushButtonf’  Cancel  ”,  cancel,  true); 
initO: 
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r 

*  Free  storage  allocated  for  the  button  states. 

V 

ChoosCT::~Chooser  0  { 

Unrcf(bs^I); 

Unref(bs^2); 

Unrcf(bs_3); 

Unrcf(canccl); 

I 

/* 

*  Choose  pops  up  the  Chooser,  lets  the  user  choose  one  of  the  buttons, 

*  removes  the  Chooser,  and  returns  the  choice. 

*/ 

charChooser::Choose  0  { 
bs_  1  ->S  ctValuc(false); 
bs_2*>S  rt Valuc(falsc); 

bs_3->Set>fiiluc(false); 

cancel->SetValue(false); 

PopUpO; 


int  first  s  false; 
int  second  <=  false; 

int  cancelled  »  false; 

while  (! first  &&  Isecond  &&  Ithird  && ! cancelled)  { 
Event  e; 

Read(e); 

if  (e.taiget  ■=  button_l  H  e,taiget 
e.taiget>>Handle(e); 


int  third  »  false; 


button_2  II 

e.taiget  *=  button_3  II  c.taiget  =  cancelbutton)  { 


bs_l  ->GetValuc(first); 
bs_2->GctValuc(second); 

cancel’>GetValue(cancelled); 

} 


bs_3->GctValue(third); 


Disappearf); 

char  answer  =  ‘c’; 

answer  =  first  ?  T ;  answer, 

answer  »  second  ?  's’ :  answer, 

answer  » third  ?  :  answer, 

return  answer; 

I 

/* 

*  Init  composes  Chooser's  view  with  boxes,  glue,  and  frames. 

V 

void  Choosenilnit  0  { 

SctClassNamcC'Chooscr"); 

HBox*"  buttons  *  new  HBox; 
buttons->Inscrt(ncw  HGluc);‘  * 
buttons*>Insert(button_l ); 
buttons->Insert(ncw  HGlue); 
buttons*>lnscrt(butlon_2); 
buttCH)s->lnsert(new  HGlue); 

buttons->Inseit(butt<m_3); 

.  buttons->Inscit(new  HGlue); 

buttons->lnsert(cance1button); 
buttons->Insert(new  HGlue); 

VBox*  vbox  «  new  VBox; 
vbo  X  ->  Align(Ccntcr); 
vbox->Inscrt(new  VGIue); 
vbox  ->Insert(  warning) ; 
vboX“>Inscrl(ncw  VGIue); 
vbox ->ln8ert(message); 
vbox“>lnscrt(i»cw  VGIue); 
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vbox  >>lnsert(buttons); 
vbox->Inscrt(ncw  VGluc); 

lnsert(new  Frame(vbox,  2)); 

} 

/♦ 

*  Reconfig  pads  Chooser's  shape  to  make  the  view  look  less  crowded 

♦/ 

void  Chooser.  iReconfig  ()  { 

DialogBox::ReconfigO; 

Font*  font  *  ou^ut->GctFontO; 
shape->width  +«  4  *  font->Width("mmmni''); 
shape->height  +■  4  *  font->Hcight(); 

} 


drawiiig.h 

#ifodcf  drawing_h 
#defuie  drawing^h 

#inc)ude  ^terViews/Std/stdio  Ji> 

#include  <InterViews/defs  Ji> 

#include  <interViewsAjraphic/classesJi> 

#include  <JnterViews/Std^trcam  Jj> 

//  Declare  inq>oiled  types. 

class  BSplineSelection; 
class  CmterList; 
class  CommentList; 
class  DrawingView; 
class  EdgeList; 
class  Edge; 
class  EllipseSelection; 
class  Graphic; 
class  GroupList; 
class  IBrush; 
class  IBrushList; 
class  IColon 
class  IColorList; 
class  Idraw; 
class  IFont; 
class  IFontList; 
class  IPattem; 
class  IPattemList; 
class  Page; 
class  PictS election; 
class  RectS election; 
class  Selection; 
class  Selectionlist; 
class  State; 
class  Transfonmer, 
class  TextBuffer, 
class  boolcanList; 
class  Vertex; 
class  VertexList; 
class  VertexNode; 
class  Operator, 
class  TextSelection; 
class  World; 

//  A  Drawing  contains  the  user's  picture  and  provides  the  interface 
//  through  «^ch  editing  operations  modify  it 

class  Drawing  | 
pid^lic: 

DrawingCdouble  w,  double  h,  double  b); 

-DrawingO; 

boolean  GetLandscapcQ; 

Page*  GetPageO; 

void  GctPicturcTr(Traitsformer&); 


Select!  onList*  GetSelectionlistO; 


boolean  Writable(const  char*); 
boolean  Exists(const  char*); 
void  ClearPictur^); 

boolean  ReadPicture(consl  char*.  State*); 
boolean  PrintPicture(const  char*.  State*); 
boolean  WritcPicturc(const  char*.  State*); 

SelcctionList*  RcadClipboard (State*); 
void  WriteClipboardO; 

void  GetBox(Coord&,  Coord&,  Cooid&,  Coord&); 

IBnishlist*  GetBrushQ; 

CenterList*  GetCenterQ; 

GroupList*  GetOuldrenQ; 

IColoiList*  GetFgColorO; 

ICoIoiList*  GetBgColorO; 

SelcctionList*  GctDupIicatesO; 
booleanList*  GetHllBgQ; 

IFontList*  GetFontQ; 
int  GctNumberOfGraphicsO; 

GroupList*  GetParentO; 

IPattemList*  GetPattemO; 

SelcctionList*  GetPrevsQ; 

SelcctionList*  GetSelections(); 

Selection*  PickSclectionIntersccting(Coord,  Coord); 

Selection*  PickSelcctionShapedBy  (Coord,  Coord); 

SelcctionList*  PickSclcctionsWithin(Coord,  Coord,  Coord,  Coord); 

void  ClearQ; 
void  £xtend(Selection*); 
void  Extcnd(SclcctionList*); 
void  Grasp  (Selection*); 

void  Grasp  (SelcctionList*); 

void  Sclcct(Sclcction*); 
void  Sdea(Se]ectionList*); 
void  SelectAllO; 

void  Movc(float,  float,  DrawingView*); 

void  Scale(float,  float); 

void  Stretch(float,  Alignment); 

void  Rotate(float); 

void  Align(Aligriment,  Alignment); 

void  AlignToGridO; 

void  SctBrush(IBnish*); 
void  SetBrash(lBrushList*); 
void  SetCenter(CcnterList*); 
void  SctFgCoIoiflColor*); 
void  SetFgCoIorOColorList*); 
void  SctBgColor(lColor*); 
void  SetBgColor^ColorList*); 
void  SetInllBg(booIean); 
void  SetHllBg(booleanList*); 
void  SetFont(IFont*); 
void  SctFont(IFontList*); 
void  SetPattem(IPattcm*); 
void  SetPattem(IPlattcmList*); 

void  AppendQ; 

void  Group(Groiq>Li5t*); 

void  InsertAfterP^(SelectionList*); 

void  PrependO; 

void  RcmovcO; 

void  Rcplacc(Selcction*,  Selection*); 
void  SortO; 

void  Ungioi;^)  (GroupList*); 


//  DFD  specific  functions 

Vertex*  SetEndptsInOpcratoKCooftl&,  Coord&,  Coord&,  Cbord&); 
void  OpcratorAppcnd^WipscSclcction*4nt  ■  0); 
void  OpcratorAppend(RcctSelcction*4nt  *  0); 
void  DataFlowSplineAppcnd(BSplincSclcction*,  Vertex*, Vertex*); 
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void  AddTextToSclcctionListO; 

void  AddSelfLoopsToSelectionListO; 

void  R^laccAssociatcdObjccts(Vcrtcx'*'»  DrawingView'*'); 


void  TriggcrAppaid  (TcxtScIection*,  EUipscSclcction*); 

void  WritcPSDLSpcc(FILE*); 

void  WritcPSDlJmpl(FILE*)j 

void  WritePSDLGraph(FILE*); 

void  WriteDFDFilcs(dhar*,  const  char*); 

void  WritcPSDLForA110perators(char*,  const  char*); 


//  Eagle  additions  for  .graph  file  format  change 
void  TagOperator(Vartcx*,char*); 
void  GeneratcAda(FILE*,Vertcx*); 
void  CommentAppcnd(TcxtSelection*); 
void  SetDrawing\hew(DrawingVicw*); 
void  SetStatefState  *s); 
void  Setldrawddraw  ♦i)  {idraw  *i;} 
EdgeList  •GctEdgcListO  { return  el; ) 

//  end  dianges 


void  RcadDFDFiles(char*»  const  diar*); 
void  AddAllAssociatedltemsfSelectionList*); 

protected: 

int  NumbcrOfGraphics(PictSelcction*); 

//  DFD  specific  functions 

void  CheckFbrCompositcsfchar*,  const  char*); 

void  AddlnputSelection(Seiection*); 

IColor  *RcadFgColor(FILE*); 

IColor  •ReadBgColoifFOE*); 
void  WritcFgColor(FIIJE*  JColor*); 
void  WritcBgCoIorfFILE*  JColor*); 

IFont  *RcadFont(FILE*); 

void  WritcFontfFILE*,  ffont*); 

void  ReadPoint(FILE*»int,Coord&,Coord&); 

void  WritcPoint(FILE*,Transfoimcr*»Coord,Coord); 

void  WritcTS(TextSelcction*»  FILE*); 

TextSelection  •RcadTSCClassId,  FILE*); 
void  WritcDFDInfo(FILE*); 
void  ReadGraph£dge(FILE*); 
void  ReadGraphVeitex(HLE*4nt); 
void  ReadDFDInfo(FIL£*); 

void  WritcBdgcs(FILE*); 

void  Writc\ferticcs(FILE*); 

void  WritePSDLConstraints(FILE*); 

void  WritcGraphEdgc(FILE*Edgc*); 
void  WritcGraphVcrlcx(FnE*,Vcrtcx*); 

Vertex*  EndptsIiiOpcrator<Coord&,  Cooid&); 

void  FindOperatoilntersection(Coord&,  Coord&,  Coord,  Coord); 

void  FindTerminatorIntcrscction(Coord&,  Coord&,  Coord,  Coord); 

void  ReplaccInputDFSplines'(Vertex*.  DrawingView*); 

void  RcplaccChitputDFSpUnes(Vertex*,  DrawingView*); 

void  RcplaccLabcl(Selection*,  TextSelection*); 

void  ReplaceLatencyfSelection*,  TextSelection*); 

char*  clipfiiename; 

Page*  page: 

PictSelection*  picture;  //stores  picture 

CommcntList  *01;  //  list  of  comments 

SelectionList*  si; 

VcrtexList*  ol;  //  list  of  operators  drawn 

EdgeList  *el; 

//  eagle  changes  for  Shing  editor 
State  *statc; 

Idraw  *idraw; 

DrawingView  *drawingview; 


//  filename  under  which  to  store  clippings 
//  draws  picture 

//  lists  picked  Selections 
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inline  void  Drawing::SctState(Statc  *5)  { 
state  Bs; 

) 


inline  void  Drawing::SetDrawingVicw(DrawingView  *dv)  { 
drawingview  =  dv; 

I 

#endif 

drawing.c 


#include  ‘’commentlisth" 

#include  *'dfd_dcfsJi” 

#include  "dfddass^ii*' 

#inc)ude  '*drawingview.h'' 

#include  "drawing.h" 

#include  "idraw.h'‘ 

#include  "ipainth" 

#include  "istringJi" 

#include  "listboolcan.h" 
tinclude  "listccntcrJi” 

#include  "listchangeJi*' 

#include  "listgroup.h" 

#include  "li5tibnish.h*' 
tinclude  “listicolorii" 

#include  "listifonth" 

#include  **listipattein.h** 

#include  "listselectn.h" 
finclude  "mapipainth" 

#inc!ude  "pageJi" 

#include  "psdlcompJi" 

#include  "psdllists.h'' 

#include  *'slellipses  Ji" 

#include  "slpicUi" 
tinclude  “slpolygonsJi" 

#include  *'slsp  lines  Ji” 

#include  "sltexth" 

#inc)ude  "state Ji” 

finclude  ^tcrN^ews/Graphic4>olygonsJi> 

#include  ^terN^ews/defs  Ji> 

#inciude  <IntcrVicws/regexpii> 

#include  <lnterViews/BhapeJj> 

#include  ^tcrViews4)cispcctiveJi> 

#inciude  <IntcrVicwsAcxt^fferh> 

#include  ^tcrViewsAransfonncnh> 

#include  <lnterViews/Std/os/fs.h> 

#include  ^terViews/Std/stdioJi> 

#define  KERNEL 
#inc]ude  <stdlibJi> 

tinclude  <sys/fiIeJi>  /*  define  constants  for  access  call  ♦/ 

#dcfinc  _POSIX_SOURCE 
#include  <math 
/*  extern  "C" 
i 

extern  char  •'getenvf  diar*); 

)*/ 

//  Drawing  creates  the  page,  selection  list,  and  clipboard  filename. 

Drawing:  tDra wing  (double  w,  double  h,  doiAle  b)  { 
const  diar^  home  *  (home  *  getcnvCHOME"))  ?  hone : 
const  char*  name  *  ".clipboard"; 

cliphlename  *  new  char{strien(home)  +  1  +  stiicn(namc)  +  1]; 

strcpy(clipfi)enamc,  home); 

strcat(clipfi)ename, 

strcat(cliphlename,  name); 

page  =  new  Page(w,  h,  b); 

picture  ■  pagc->GetPicturcO; 

si  B  new  SelectionList; 

c) »  new  CommentList; 

ol  B  new  VertexList; 

el  B  new  EdgeList; 

I 
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//  "Drawing  frees  storage  allocated  for  the  clipboard  filename,  page, 
//  and  selection  list. 

Drawing::"Drawing  () 

I 

delete  cHpfilename; 
delete  page; 
delete  si; 
delete  cl; 
delete  ol; 
delete  el; 

} 

//  Define  access  functions  to  return  attributes. 

boolean  Drawing::GetLandscapc  () 

{ 

Transformer*  t  *  page->GetTransfonncrO; 
return  t  ?  t->Rotatcd90() :  false; 

I 


Page*  Drawing::GctPage  0 

{ 

return  page; 

) 

void  Drawing:;GctPictuieTT  (Transfoimer&  t) 

I 

pictu  ie->Totarrransfonnation{t); 

I 

Selectionlist*  Drawing:  iGetSelectionList  0 

{ 

return  si; 

} 

//  Writable  returns  true  only  if  the  given  drawing  is  writable. 

boolean  Drawing:;Writable  (const  char*  path) 

( 

return  (access(path,  W_OK)  >«  0); 

I 

//  Exists  returns  true  only  if  the  drawing  already  exists, 
boolean  Drawingifxists  (const  char*  path) 
return  (access(path,  F_OK)  >■  0); 

) 

//  QearPictuie  deletes  the  old  picture  and  creates  a  new  empty 
//  picture. 

//  Modified  10/20/94  by  C.S£agle 
void  Drawing:  rClcarPictuie  0 

I 

sl->DclcteAll(); 
page->S  etPictuie(ml); 
picture  =  page*>GctPicture(); 

ol->DclctcA110; 

ei>>DeleteAnO; 

) 

U  ReadPicture  reads  a  new  picture  and  rq)]aces  the  old  picture  with 
//  the  new  picture  if  the  read  succeeds. 

boolean  Drawing::ReadPicture  (const  char*  path.  State*  state) 

{ 

boolean  successful «  false; 
if  (path  !*  nil) 

I 

FILE*  stream  «  fopcn(path,  "r"); 
if  (stream  !«nil) 

I 

PictSclection*  newpic  «  new  PictSelection(stream,  state); 


97 


fclosc(strcam); 
if  (ncwpic->Valid()) 


sl->DclrtcAUO; 

page->SetPi  cturc(ncwpic); 
picture  =  page->GctPicturcO; 
successful  =  true; 

} 


else 


delete  ncwpic; 

fjprmtfCstderr,  "Drawing:  input  error  in  reading  %s\n",  path); 


) 

} 

return  successful; 

) 


//  PrintPictuie  prints  the  current  picture  by  writing  it  through  a 
//  pipe  to  a  print  command. 

boolean  Drawing:  JPrintPictuic  (const  char*  cmd^  State*  state) 

I 

boolean  successful «  false; 
if  (cmd  I**  nil) 

{ 

FILE*  stream  *  popen(cmd,  "w"); 
if  (stream  !*  nil) 

successful  *  picturc->WritcPicturc(stream,  state,  true); 
pclose(stream); 

1 


return  successful; 

) 

//  WritcPicturc  writes  the  current  picture  to  a  file. 

boolean  Drawing ::WritcPicture  (const  char*  path.  State*  state) 

{ 

boolean  successful »  false; 
if  (path  nil) 

{ 

FILE*  stream  *  fopcn(path,  "w"); 
if  (stream  I«nil) 

I 

successful «  picture->WritcPicturc(stream,  state,  true); 
fclose(stream); 

) 

I 

return  successful; 

} 

if  ReadClipboard  returns  copies  of  the  Selections  within  the  clipboard 
//  file  in  a  newly  allocated  list 


Selecrionlist*  Drawing::RcadQipboard  (State*  state) 

1 

SelectionList*  si «  new  SelectionList; 

FILE*  stream  =  fopcn(clipfilenamc,  "r"); 
if  (stream  1*  nil) 

PictSclection*  ncwpic  ■  new  PictSelcction(stream,  state); 

fclose(stream); 

if  (ncwpi{»VaiidO) 

I 

ncwpic->PropagateO; 

for  (newpic->First();  lncwpic->AtEndO;  ncwpic->RemovcCuiO) 

Selection*  child  ^  (Selection*)  neM^ic->GctCuiT«ait(); 
sl->Appaid(new  SclcctionNodc(child)); 


1 

else 


I 

) 

delete  ncwpic; 
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{ 

fprintf(stderT,  "Drawing:  can't  open  %s\n'\  clipfilename); 

} 

return  si; 

} 

//  WriteClipboard  writes  the  picked  Selections  to  the  clipboard  file, 

//  overwriting  its  previous  contents. 


void  Drawing: iWriteClipboard  0 

I 

FILE*  stream  *=  fopcn(clipfila)ame.  "w"); 
if  (stream  iBnil) 


PictS election*  newpic  *=  new  PictSelection; 
for  (sI->First();  lsl->AtEndO;  sI->NcxtO) 

Graphic*  copy  «  sI->GctCurO->GctSelectionO->CopyO; 
newpic->Appcad{copy); 

I 

ncwpic->WrilcPictur^stream,nil,  false); 

fclose(stream); 

delete  newpic; 


else 

I 

fprintf(stderr,  "Drawing:  can't  open  %s\n",  cUpfiilaiame); 

I 

) 


H  GetBox  gets  the  smallest  box  bounding  all  the  Selections. 

void  Drawing::GetBox  (Cooid&  1,  Coord&  b,  Coord&  r,  Coord&  t) 

{ 

BoxObj  btotal; 

BoxObj  bselection; 

if(sl->Sizc()>«l) 

{ 

sI->FirstO*>GetSelection()->GetBox(btotal); 
for  (sl->NcxtO:  lsl->AtEndO;  sl->NcxtO) 

I 

sl->GctCurO->GctSclection()->GetBox(bsclection); 
btotal  B  btotal  -f  bselection; 

I 

1  ^  btotal. left; 
b  K  btotal. bottom; 
r  »  btotal.right; 
t  >  btotal  .lop; 

I 

I 

//  GetBrush  returns  the  Selections'  brush  attributes  in  a  newly 
//allocated  list 

IBnishList*  Drawing:  :GetBrush  () 

( 

IBrushlist*  brushlist  *  new  IBrushlist; 
for  (sl“5»First();  lsl->AtEndO;  sl->NextO) 

I 

IBrush*  brush  ■  (IBrush*)  sl->GctCurO->GetSelcction{)->GetBiushO; 
brashlist>>Append(new  IBiushNode(brush)); 

} 

return  brushlist; 

1 


//  GetCenter  returns  the  Selections'  centers  in  a  newly  allocated 
//  list.  It  converts  the  centers  from  window  coordinates  to  picture 
//  coordinates  because  only  these  coordinates  will  remain  constant 

CentcrList*  Drawing:  KretCentcr  () 

{ 

CentcrList*  centerlist «  new  CenterList; 

Transformer  t; 

pictu  re->Totarriansformation  (t) ; 
for  (sl->FirstO;  lsU>AtEndO;  sl->NextO) 
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float  wincx,  wincy,  cx,  cy; 


sl->GctCuiO->GctSclcct!onO-><3ctCcntcr(wincx,  wincy); 
tin  vTransfonn  (wincx,  wincy,  cx,  cy); 
ccnt«list->Appcnd(ncw  C«itcrNodc(cx,  cy)); 

} 

return  centeriist; 

} 

//  GetChildrcn  returns  the  Selections  and  their  children,  if  any,  in  a 
//  newly  allocated  list 

GroupList*  Drawing:  iGctChildren  0 

I 

GroupList*  grouplist  *  new  GroupList; 
for  (sl->Rrst();  !sl->AtEndO;  sl->NcxtO) 

PictSclcction*  parent » (PictSclection*)  sl->GctCurO'><JCtSclcctionO; 
boolean  haschildrm  »  parcnt-^IasChildreoO; 

Selectionlist*  children  *  new  SelectionList; 
if  (haschildren) 

I 

for  (pafent->FiistO;  !parent->AtEndO;  paient->Ncxt{)) 

^  Selection*  diild  «  parcnt->GetCuncntO; 

duldircn->Appcod(ncw  SclectionNodc(child)); 

} 

giouplist->Appcnd{new  GroupNode^arent  haschildren,  children)); 
delete  chi  Idrai; 

I 

return  grouplist; 

I 

//  GctFgColor  returns  the  Selections’  FgColor  attributes  in  a  newly 
//allocated  list 

IColorList*  Drawing:  :GctFgColor  0 

{ 

IColorList*  fgcolorlist «  new  IColorList; 
for  (sl->Rrst();  Isl->AtEndO;  sl->NextO) 

{ 

IColor*  fgcolor  *  (IColor*)  sl->GetCurO->GetSclcction()->GctFgColoi<); 
fgcolorlist->Append(new  IColorNode(fgcolor)) ; 

) 

return  fgcolorlist; 

1 

//  GetBgColor  returns  the  Selections'  BgColor  attributes  in  a  newly 
//  allocated  list 

IColorList*  Drawing:  :GctBgC01or  0 

{ 

IColod^ist*  bgcolorlist  *  new  IColorList; 
for  (sl->RrstO;  lsl->AtEndO;  sl->NcxtO) 

*  IColor*  bgcolor  « (IColor*)  si->GctCurO->GctSelcction()->GetBgColorO; 

bgcolorlist->Append{ncwIColorNode(bgcolor)); 

1 

return  bgcolorlist; 

I 

if  GetDuplicates  duplicates  the  Selections,  offs^  them  by  one  grid 
//  spacing,  and  returns  them  in  a  newly  allocated  list. 

SelectionList*  Drawing  :KjctDuplicates  Q 

I 

int  offset  *  round(page->GetGridSpacingO  *  points); 

SelectionList*  duplicates  «  new  SelecticxiList; 
for  (sl->Rrst();  !sl->AtEndO:  sl->NcxtO) 

Selection*  dup  «=  (Selection*)  sl“>GctCurO->GctSelcction()->CopyO: 
dup->Translate(ofrset  oBset); 
duplicates->Appcnd(ncw  SelectionNode(dup)); 

I 
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return  duplicates; 

} 

//  GetHllBg  returns  the  Selections’  fillbg  attributes  in  a  newly 
//  allocated  list 

booleanList*  Drawing:  iGetFillBg  Q 

( 

boolcanlist*  fiUbglist «  new  booleanList; 
for  (sl->FirstO;  lsl->AtEndO;  sl->NextO) 

boolean  fillbg  »sl->GetCurO->GetSelection()->BgFilledO; 
fillbglist->Appcnd(new  booleanNode(fillbg)); 

} 

return  filibglist; 

} 

//  GetFont  returns  the  Selections'  Font  attributes  in  a  newly 
//allocated  list 

IFontList*  Drawing:  :GetFont  0 

{ 

IFontList*  fontiist  *  new  IFontList; 
for  (sl->FirstO;  lsl->AtEndO;  sl->NcxtO) 

IFont*  font  -  (IFont*)  sl->GetCur()->GetSclectionO->GctFontO; 
fontlist->Appcnd(new  IFoniNodcffont)); 


return  fontiist; 

) 


//  GetNumbeiOfGraphics  letums  the  number  of  graphics  in  the 
//  Selections. 

int  Drawing:K3etNinnberOfGraphics  0 

{ 

int  num  «  0; 

for  (sl->FiistO;  !sl->AtEndO;  sl->NextO) 

I 

Selection*  s  »  sl->GetCuK)->GetSelectionO; 
if  (s->HasChildpenO) 

num  NumberC)fGraphics((PictSelcction*)  s); 

else 

•M-num; 

I 

return  num; 

I 


//  GetParent  returns  the  Selections  and  their  new  parent  in  a  newly 
//  allocated  list  if  there  are  enough  Selections  to  form  a  Group. 

GroupList*  Drawing:  :GetParenl  () 

I 

GroupList*  gro\q)list  *  new  GroupList; 
if  (sl->SizeO  >«  2) 

{ 

PictSclection*  parent  ■  new  PictSelecUon; 
boolean  haschildren  « true; 

giouplisi«>Append(ncw  GroupNode(parent,  haschildren,  si)); 


return  grouplist; 

) 

//  GetPattem  returns  the  Selections'  Pattern  attributes  in  a  newly 
//  allocated  list 

IPattemList*  DTawing:KjetPattcm  0 

{ 

IPattemList*  pattemlist »  new  IPattemList; 
for  (sl->FirstO;  l5l->AtEnd0l  sl->NcxtO) 

I 

IPattem*  pattern  » 

(IPattem*)  sl->GctCurO->GctSelcctionO->GctPattem(); 
pattcmlist->Appcnd(ncw  IPattcmNodc(pattcm)); 

I 

return  pattemlist 
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I 


//  GctPrcvs  returns  the  Selections’  predecessors  within  the  picture  in 
//  a  newly  allocated  list. 

Selcctionlist*  Drawing::GetPrevs  () 

{ 

Select! onList*  prevlist  =  new  SelectionList; 
for  (sl->First();  !sl->AtEndO;  sl->NcxtO) 

picture->SetCurrent(sl->GetCu  rO“>GctS  electionO) ; 

Selection*  prev  »  picture->Prev(); 
prevlist‘>Append(new  SelectionNode(prev)); 


return  prevlist; 


//  GctSelections  returns  the  Selections  in  a  newly  allocated  list 

Selcctionlist*  Drawing:  rGetSclections  0 

{ 

SelectionList*  newsl  =  new  Selcctionlist; 
for(sl->Firet();  lsl->AtEndO;  sl-:^extO) 

^  Selection*  s  «  sl->GctCurO->GetSclectionO; 

ncwsl->Appcnd(new  SclectionNode(s)); 


return  newsl; 

I 


//  PickSclcctionlntcrsccting  returns  the  last  Selection  intersecting  a 
If  box  around  the  given  point 

Selection*  Drawing:  J*ickSclcctionInlcrsecting  (Coord  x.  Coord  y) 

i 

const  int  SLOP  «  2; 

BoxObj  pickpoint(x  -  SLOP»  y  -  SLOP,  x  +  SLOP,  y  +  SLOP); 
return  picture->LastSclcctionlntcrsccting(pidcpoint); 

I 

//  PickSelcctionShapcdBy  returns  the  last  Selection  shaped  by  a  point 
//  close  to  the  given  point 

Selection*  Drawing:  JHckSelectionShapcdBy  (Cboid  x,  Coord  y) 

I 

const  float  SLOP  «  6.; 

for  {picture->LastO;  !picture->AtEndO;  pictuie->PievO) 

I 

Selection*  pick  ■=  picturc->GetCunentO; 
if  (pick->ShapedBy(x,  y,  SLOP)) 
return  pick; 

I 

return  nil; 

I 


//  PickSclcctionsWithin  returns  all  the  Selections  within  the  given 
//box. 

Selcctionlist*  Drawing:  J^ickSclcctionsWithin  (Ck>ord  1.  Coord  b.  Coord  r.  Coord  t) 

I  .  • 

Selection**  picks  «  nil; 

int  numpicks  =  picture->SelcctionsWithin(BoxObjO»  r,  t),  picks); 
SelecdonList*  picklist  *  new  SelectionList; 
for  (int  i  ■  0;  i  <  numpicks;  i++) 

if  (!picklist->Find(picks{i])) 

picklist->Appcnd(ncw  SclectionNodc(picks(i])); 

delete  picks; 
return  picklist; 

I 

//  Clear  empties  the  SelectionList 
void  Drawing;  :Clear  0 

I 

sl->DclcteAU(): 

1 
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//  Extend  extends  the  SelectionList  to  include  the  picked  Selection 
//  unless  it's  already  there,  in  which  case  it  removes  the  Selection. 

void  Drawing: £x tend  (Selection*  pick) 


if  (!sl->Find(pick)) 

sl->Appcnd(new  SelcctionNode(pick)); 
else 


sl->DeIetcCur(); 


//  Extend  extends  the  SelectionList  to  include  the  picked  Selections 
//  unless  they're  already  there,  in  which  case  it  removes  them. 

void  Drawing:  £xtend  (SelectionList*  pidUist) 

( 

for  (picklist->KretO;  Ipickiist->A£ndO;  picklist->NcxtO) 
i 

Selection*  pick  «  pidclist->GctCurO*>GctSclectionOi 
Extend(pick); 

I 

) 


//  Grasp  selects  the  picked  Selection  only  if  the  SelectionList  does 
//  not  already  include  it. 

void  Drawing: :Grasp  (Selection*  pick) 

i 

if  (!sl->Find(pick)) 

Select(pick); 

} 

//  Grasp  selects  the  list  of  picked  Selections  only  if  the  SelectionList 
//  docs  not  already  include  any  of  the  selections. 

void  Drawing::Grasp  (SelectionList*  piddist) 

I 

boolean  found  «  false; 

for  (picklist->Hr5tO;  lpickli5t->AtEndO;  picklist->NcxtO) 

{ 

if  (sl“>Find(pick!ist->GctCurO->GctSclection  0)) 

{ 

found  B  true; 
exit(0); 

) 

I 

if  (Ifound) 

Select(picklist); 

I 

//  Select  selects  the  picked  Selecticm. 

void  Drawing: :Select  (Selection*  pick) 

{ 

sl“>DelctcAIl(); 

sl>>Append(new  SelectionNode(pick)); 

) 

//  Select  selects  the  picked  Selectimis. 
void  Drawing:  :Select  (SelectionList*  picklist) 

6l->DeleteAll(); 

for  (picklist->FiistO;  lpicklist“>AtEndO;  picklist->NcxtO) 

{ 

Selection*  pick  *  pick!ist->GetCurO“>GctSelcction(); 
sl>>Append(new  SelectionNode(pick)); 

) 

) 

U  SelectAIl  selects  all  of  the  Selections  in  the  picture. 

void  Drawing:  :SelectAll  Q 

( 

sl<>DeleteAli(); 
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for  (picture- >First();  !picturc->AlEndO;  picture->Next()) 

{ 

Selection*  pick  *  picturc->GrtCurT«itO; 
sl->Appcn(i(ncw  SeIcctionNode{pick)); 


//  Move  translates  the  Selections. 

void  Drawing:  :Mo VC  (float  xdisp,  float  ydisp,  DrawingView*  dv) 

//  add  labels,  mets,  and  selfloops  and  their  labels  to  the  list  of  selections 
//  to  be  moved  if  the  operator  they  are  attached  to  is  to  be  moved. 

//  These  objects  can  be  translated  along  with  the  operator  -  data  flows 
//  cannot  be  translated,  they  must  be  modified 

AdJTcxtToSelectionListO; 

AddSelfLoopsToS  clcctionList(); 

Qassid  cid; 

int  sl_sizc  =  sl->SizcO; 

for  (int  index  »  0;  index  <  sl_sizc;  ++indcx) 

( 

Selection*  s  *=  sl->Index(index)->GetSelcctionO; 
cid  =  s->GctClassIdO; 

if  (cid  *=  OPERATOR  11  cid  TERMINATOR  II  cid  COMMENT  II 

cid  -=LABEL^OP  II  cid  =  MET.OP  II 
cid  «=  LABEL^SL  I  cid  SELFLOOP  II  (sLsize  1  && 

(cid  -*  LABEL_DF  II  cid  -=  LAT_DF))) 

I 

s->Translatc(xdisp,  ydisp); 

if  (cid  *=  OPERATOR  11  cid  «=  TERMINATOR) 

I 

SelectionList*  temp  «  GetSclectionsO: 

RcplaoeAssociatedObjccts((Vertcx*)  s->GctOwner0t  dv); 

Sclcct(tcn^); 


I 

I 

//  only  redraw  the  screen  once  to  make  the  transition  look  smooth 
dv->Draw(); 

} 


//  Scale  scales  the  Selections  about  their  centers. 

void  Drawing:  :Scale  (float  xscale,  float  yscale) 

{ 

for  (sl->First();  lsl->AtEnd();  sl->Next()) 

{ 

Selection*  s  *  sl->GetCurO->GctSclectionO; 
float  cx,  cy; 
s->GetCenter(cx,  cy); 
s->Scale(xscalc,  yscale,  cx.  cy); 


U  Stretch  stretches  the  Selections  while  keeping  the  given  side 
//  fixed. 

void  Drawing: :Stietch  (float  stretdi.  Alignment  side) 

\ 

for  (sI->First();  lsl->AtEndO;  sl->Next()) 

( 

Selection*  s  «  sI“>GctCuiO->GetSelcctionOl 
float  I,  b,  r,  t; 
s->GctBounds(l,  b,  r,  t); 
switch  (side) 

I 

case  Left: 

s->$cale(stretch,  1,  r,  t); 

break; 

case  Bottom: 
s->Scale(l.  stretch,  r,  t); 
break; 
c»e  Rig^t: 
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s->Scale(stretch,  1,  K  b); 
break; 
case  Top; 

s->ScaIe(l»  stretch,  1,  b); 
break; 

default; 

fprintffstdciT,  "inappropriate  cnum  passed  to  Drawing; ;Stretch\n"); 
break; 

I 

} 

} 

//  Rotate  rotates  the  Selections  about  their  centers. 

void  Drawing:  iRotate  (float  angle) 

{ 

for  (sl->RistO;  Isl->AtEndO;  sl->NextO) 

Selection*  s  *  sI->GctCuiO->GetSclcctionO; 
float  cx,  cy; 

S‘>GctCcnter<cx,  cy); 

5->Rotate(angle,  cx,  cy); 

} 

} 


//  Align  either  aligns  up  all  of  the  Selections  or  abuts  all  of  than 
//  side  to  side,  depending  on  whether  the  moving  Selection's  side  or 
//  center  aligns  with  the  fixed  Selection's  same  side  or  center 

void  Drawing:  :AJign  (Alignment  falign,  Ali^unoit  malign) 

1 

if  (falign  »=  malign) 

I 

Selection*  stays  »  sl->Fiist()->GetSclcction(); 
for  (sl->NextO;  lsl->AtEndO;  sl->NextO) 

{ 

Selection*  moves  «  sl->GetCur()->GetSclcctionO; 
stays“>Align(falign,  moves,  malign); 

I 

) 

else 

I 

Selection*  stays  «  sl->FiistO->GetSclcctionO; 
for  (sl->Next();  Isl->At£ndO;  sl->NcxtO) 

{ 

Selection*  moves  »  sl->GetCuK)->GctSelectionO; 
stays->Align(faIign,  moves,  malign); 
stays  =  moves; 

1 

} 

1 


//  AlignToGrid  aligns  the  Selections'  lower  left  comers  to  the 
//  nearest  grid  point. 

void  Drawing;  ;AlignToGrid  0 

{ 

boolean  gravity  **  page->GetGridGravityO; 
pagC“>S  ctG  ridGravity(truc); 

Transforaier  t; 

picture->Totarriansformation(t); 

for  (sl->First();  Isl->AtEndO;  Kl->NextO) 

I 

Selection*  s  *  sl->GctCurO*>GetSelectionO; 
float  I,  b,  dummy; 

s->GetBoundsG.  b.  dummy,  dummy); 

Coord  nl »  rouod(l); 

Coord  nb  «  round(b); 
p8ge->Constrain(nl,  nb); 
float  xO,  yO,  xl.yl; 
tJnvTransform(l,  b,  xO,  yO); 
UnvTransform(float(nl),  float(nb),  xl ,  yl); 
6->Translate(xl  ♦  xO,  yl  -  yO); 
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p  age->SetGri  dGravity(gravity); 

) 

//  SetBnish  sets  the  Selections'  brash  attributes  with  the  given  brush 
//  attribute. 

void  Drawing: ;SetBnish  (IBrash*  brash) 

I 

for  (sl->First();  !sl->AtEndOl  sl->NcxtO) 

I 

sl->GetCuiO->GctSelectionO->SetBrash(brash); 

) 

} 


//  SetBrush  sets  each  Selection's  brash  attribute  with  the 
//  corresponding  brash  attribute  in  the  provided  list 

void  Drawing: iSetBrusb  (IBrashList*  bnishlist) 

{ 

for  (sl*>HrstO,  brashlist->FirstO;  !sl->AtEndO  &&  lbrashlist->AtEndO; 
sl->NcxtO»  brashlist->Next()) 

I 

IBrash*  brash  *  brashlist->GetCurO“>GctBrosh(); 
sl->GctCuK)->GctSelectionO*>SetBrash(brash); 


I 

//  SetCenter  centers  each  of  the  Selections  over  the  corresponding 
//  position  in  the  provided  list  It  expects  the  passed  postions  to 
//  in  picture  coor^ates,  not  window  coordinates. 

void  Drawing:  :SetCentcr  (CenteiList*  coiterlist) 

( 

Transformer  t; 

picture->Totarrransfoimation(t); 
for  (sl->First(),  centerlist->Fir5t(); 

!sl->AtEndO  &&  !centerlist->AtEndO: 
sl->NextO,  centcrlist->NextO) 

{ 

float  winoldcx,  winoldcy,  oldcx,  oldcy; 
float  newcx  «  centerlist->GetCuiO->GetCxO; 
float  newey  «  centcrlisi->GetCui<)->GetCyO; 
Selection*  s  »  sl->GctCurO*>GctSelcctionO: 

5->GctCcntcr(winoldcx,  winoldcy); 
tlnvTransformfwinoldcx,  winoldcy,  oldcx,  oldcy); 
s->Tnmslatc(ncwcx  -  oldcx,  newey  -  oldcy); 


//  SctFgColor  sets  the  Selections'  foreground  color  attributes  with 
//  the  given  color  attribute. 

void  Drawing:  tSetFgColor  (IColor*  fgcolor) 

{ 

for  (sl->First();  !sl->AtEndO;  sl->NextO) 

{ 

Selection*  s  ■*  sl->GctCur()->GetSeIectionO; 

IColor*  bgcolor  =  (IColor*)  s->GctBgColorO; 
s->SetCoIors(Igcolor,  bgcolor); 

I 

I 

//  SctFgColor  sets  the  Selections'  foreground  color  attributes  with 
//  the  corresponding  color  attributes  in  the  provided  list 

void  Drawing:  :SctFgColor  (IColorList*  fgcolorlist) 

I 

for  (sl->First(),  fgcolorlist->FifstO; 

!sl->AtEndO  &&  !fgcoloiiist->AtEndO; 
sl‘>NextO,  fgcolorlist*>Next()) 

I 

Sdection*  s  *  sI->GctCurO->GctSclcctionO; 

IColor*  fgcolor  ■  fgcolorlist->GetCufO->GetColorO; 
IColor*  bgcolor  *  (IColor*)  s->GctBgColorO; 
s->SctColois(fgcolor.  bgcolor); 
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) 

) 

//  SetBgColor  sets  the  Selections’  background  color  attributes  with 
//  the  given  color  attribute. 

void  Drawing:  iSctBgColor  (IColor*  bgcolor) 

i 

for  (sl->First();  !si->AtEndO;  sl->NextO) 

{ 

Selection*  s  *  sl->GetCuK)->Gc*SelectionO; 
IColor*  fgcolor  « (IColor*)  s->Ged"gColorO; 
s->SetColois(fgcolor,  bgcolor); 

) 

} 


//  SetBgColor  sets  the  Selections'  background  color  attributes  with 
//  the  corresponding  color  attributes  in  the  provided  list 

void  Drawing:  :SetBgColor  (IColoiList*  bgcolorlist) 

{ 

for  (sl->RrstO,  bgcoloriist->F!retO; 

Isl->AtEndO  &&  !bgcolorlist->AtEnd(); 
sI->NextO»  bgcoloriist->NextO) 

Selection*  s  «  sl->GetCurO->GctSelectionO; 

IColor*  fgcolor  *  (IColor*)  s->GctFgColorO; 

IColor*  bgcolor  «  bgcoloriist->GctCur()->GetColorO; 
s->SctColois(fgcolor,  bgcolor); 

} 

I 

//  SetHllBg  sets  the  Selections’  fillbg  attributes  with  the  given 
//  fillbg  attribute. 

void  Drawing: :SetKlIBg  (boolean  fillbg) 

{ 

for(sl->Hret();  lsI->AlEndO;  sl->NextO) 

sl->GetCuK)->GctSelectionO->FillBg(fillbg); 

) 

//  SetFillBg  sets  each  Selection's  fillbg  attribute  with  the 
//  corresponding  fillbg  attribute  in  the  provided  list 

void  Drawing::SetKllBg  (bcwleanlist*  fillbglist) 

( 

for  (sl->RrstO,  fillbglist->Rrst(); 

Isl->AtEndO  &&  IfillbgJist->AtEndO: 
sl->NextO,  fillbglist->NextO) 
i 

boolean  fillbg  =  fiIlbglist->GetCur()->GetBooleanO; 

si->GetCuK)->GctSelectionO->FillBg(fillbg); 

) 

} 


//  SetFont  sets  the  Selections’  font  attributes  with  the  given  font 
//  attribute. 

void  Drawing:  :SetFont  (IFont*  font) 

{ 

for  (sl->RTst();  Isl->AtEndO;  sl->NextO) 

Selection*  s  «  sl->GetCuiO*>Gc^SclcctionO; 
8->SetFont(font); 


I 

//  SetFont  sets  each  Selection’s  font  attribute  with  the  corresponding 
//  font  attribute  in  the  provided  list 


void  Drawing: :SetFont  (IFontList*  fontlist) 

^  for  (sl->Rrst(),  fontlist->RrslO;  !sl->AtEndO  &&  !fontIist->AtEnd(); 
sl->NextO,  fonthst->Next()) 


IFont*  foot «  footlist->GetCur()->GdFontO; 
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Selection*  s  ■  s!->GetCurO>GctSelectionO; 
s->SctFont(font); 

I 

I 

//  SetPattem  sets  the  Selections'  pattern  attributes  with  the  given 
//  pattern  attribute. 

void  Drawing: :SctPattcm  (IPattem*  pattern) 

I 

for  (sl->First();  IsI'>AtEndO;  sl->NextO) 

^  sl->GctCur<)->GetSelectionO*>SetPattem(pattem); 


//  SetPattem  sets  each  Selection’s  pattern  attribute  with  the 
//  corresponding  pattern  attribme  in  the  provided  list. 

void  Drawing::SctPattcra  (IPattemlist*  pattemlist) 

{ 

for  (sl->First(),  pattemlist->RrstO; 

!sl->AtEndO  &&  !pattemiist->AtEnd(); 
sl->NextO,  pattemlist->Next()) 

IPattem*  pattern  =  pattemlist->GetCur(>>GctPattcmO; 

sl->GetCur()->GetSelectionO->SctPattem(pattem); 

I 

) 

//  Append  appends  the  Selections  to  the  picture, 

void  Drawing:  rAppend  0 

for  (sl->RrstO;  !sl->AtEndO;  sl->NextO) 

Selection*  s  *  sl->GetCurO->GctSelcctionO; 
pictufc->Append(s); 

} 

I 


//  Group  groups  each  parent's  children^  if  any,  colder  their  parent  and 
//  returns  the  resulting  Selections  in  the  SelectionList 

void  Drawing: :G roup  (GroupList*  grouplist) 

{ 

if  (gtoi^list->SizcO  >*  1) 

{ 

sl“>DclctcAI10; 

for  (gioi^list->Hrst();  lgtouplist->AtEndO;  groi^list->NcxtO) 

I 

GroupNode*  gn  giouplist->GetCurO; 

PictSelection*  parent  *  gn->GetParentO; 
boolean  haschildrai  *  gn->GctHasChildrenO; 

SelectionList*  diildren  *  gn->GetChildren(); 

SelectionList*  childraigs  gn->GctChiIdrcnGSO; 
if  (haschildren) 

for  (diildrai->First(),  childrengs->FirstO; 

!children->AtEndO  &&  Ichildrengs->AtEndO; 
diildren->NcxtO.  childraigS“>NcxtO) 

{ 

Graphic*  child  *  childrwi->GctCurO'>GctSclection(); 

Graphic*  diildgs  »  childrnigs->GctCur(>*>GetSclcctionO 

*child  ■  *childgs; 

pictu  re->SetCurTeot{child); 

pictu  rc->Rcmove(child); 

parcnt->Append(child); 

) 

picture’>InscftBcforeCu  r(parcnt); 

) 

sl->Appcnd(ncw  SelectionNode(parent)); 

) 

SortO: 

I 

I 
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//  InsertAftcrPrev  inserts  each  Selection  after  its  corresponding 
//  predecessor  in  the  provided  list. 

void  Drawing:  JnsertAfterPrev  (ScIcetionList*  prevlist) 

for  (sl->First()»  prevlist->FirstO;  !sl->AtEndO  &&  !prcvlist->AtEndO; 
sl->NextO,  prcvlist->Next()) 

{ 

Selection*  prev  *prevlist->GetCur()->GctSelcction(); 
picture->SetCunent^  rev) ; 

Selection*  s  =  sl->GctCur()->GctSelcctionO; 
pictufe->InscitAftcrCur(s) ; 


} 

//  Prqpend  prepends  the  Selections  to  the  picture. 

void  Drawing:  dPrqrcnd  ()  ( 

for  (sl->Last();  lsl->AtEnd();  sl->PrevO)  I 

Selection*  s  «  sl->GctCuK)->GctSelcctionO: 
picturc->Prq)end(s) ; 


I 

//  Remove  removes  the  Selections  from  the  picture. 


void  Drawing::Removc  0  I 

SelectionList*  slJZ  *  GetSelcctionsQ; 

ClcarO; 

AddAl  iAssociatedItems(5l_2); 
for  (sl_2->RistO;  !sl_2->AtEndO;  sL2->NextO) 
picture->Rcmove(sl_2->GctCurO->GetSelcctionO); 
for  (sL2->RrstO;  lsl_2->AtEnd();  sL2->NcxtO)  { 

Selection*  s  *  sl_,2->GetCurO->C3ctSelection(); 
Classid  cid  »  s  ->GctQassIdO; 

if  (8->IsEdgeComponent()) 
cl->Rcmove(s); 

else  if  (s->IsVerlcxComponcnt()) 
ol-Mlcmove(s); 

else  if  (s->GetaassId()  -«  COMMENT) 
cI‘>Remove{(TextSclcction  *)s); 


1 

sL2->DclctcA110; 

1 


void  Drawing::AddAllAssociatcdItems(SelcctionList  *s)  { 
Texts  election  *ts; 

EdgeList  *edl; 

BSplineSelection  *bs; 

for  (s->Fiist();  ls->AtEnd();  s->NextO)  ( 

Selection  *scl  *  s->GetCafO->GetSelcctionO; 
if  (scl->GctClassIdO  **  OPERATOR)  { 

Operator  *op  »  (Operator  *)  scl->GctOwnerO; 
ts  «  op->GetLabelO; 
if  (ts  &&  ls->Rnd(ts)) 

6->Appcnd(new  SelcctionNode(ts)); 
ts  *  op*^ctMET(); 
if  (te  &&  ls->Rnd(ts)) 
s->Appcnd(new  SelectionNode(ts)); 
ts  *  op-:^ctTagO; 
if  (ts  &&  ls->Rnd(ts)) 
s->Appcnd(new  SelectionNode(ts)); 
edl  B  op*>GetInput60; 

for  (edI->Fiist();  !edl->A^dO;  edl->NextO)  { 
bs  ■  edl->GctCurO->GctEdgc()->GctBSplineO; 
if  (bs  &&  !s-:^ind(b8)) 
s->Append(new  SelectionNode(bs)); 

} 

edl «  op->GctOutputs(); 
for  (cdl->Fiist();  !cdl->AtEnd();  edl->NcxtO)  I 
bs  ■  edl->GetCur()->GetEdgeO>GctBSpline(); 
if(bs&&!s->Find(bs)) 
s->Appcnd(ncw  SetectionNode(bs)); 

I 

} 
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else  if  ((seI->GetQassId()  *=  DATAFIX)W_SPLINE)  II 
(scl->GetaassId()  =  SELFLOOP))  | 

Edge  *c  —  (Edge  *)  scl'>GetOwnerO; 
ts  *=  e->GetLabeIO; 
if  (ts  &&  !s->Fmd(ts)) 
s->Appcnd(new  SelectionNode(ts)); 
ts  =  e->GetLatcncy(); 
if  (ts  &&  !s->Fmd(ts)) 
s->Append(new  SelectionNode(ts)); 

) 


//  Rqjlace  replaces  a  Selection  in  the  picture  with  a  Selection  not  in  it 

void  Drawing: :Rcplacc  (Selection*  rqjlacee,  Selection*  r^lacer)  { 
if  (replacce->Is^gcComponcntO) 

cl->Rcplacc(rcplaccc  jeplacer) ; 
else  if  (rcplacce->IsVcrtcxComponcnt()) 
ol ->Rq)lace(rcplacec,rqp  lacer); 
pictu  re->5ctCu  rrent(replaccc); 
pictu  rB->Rctnovc(repl  acce) ; 
picture->InscitBeforcCur(replaccr); 

I 

//  Sort  sorts  the  Selections  so  they  occur  in  the  same  order  as  they 

//  do  in  the  picture. 


void  Drawing:  :Sort  ()  { 
if  (sI->Size()  >«  2) 

for  (picture->FirstO; !  pictu  rc->AtEndO;  picture->Ncxt())  { 

Selection*  g  *  pictuie->GctCuiTentO; 
if  (sl->Fmd(g))  I 

SeIcctionNode*  s  s=  sl->GctCurO; 

sl->RemovcCurO; 

sl->Append(s); 


} 

//  Ungroup  replaces  all  Selections  which  contain  children  with  their 
//  children  and  returns  the  r^lting  Selections  in  the  SelcctionList 

void  Drawing: :Ungroup  (GroupUst*  grotq>list) 

{ 

if  (group  list->Size()  >«  1) 

( 

sl->DeletcA110; 

for  (gn)uplist->FirstO;  lgroi^iist->AtEndO;  grot^list->Next()) 

I 

GroupNodc*  gn  =  groiq)list->GetCurO; 

PictSclection*  parent «  gn‘>GctParent(); 
boolean  haschildrai  ■sgn->GetHasChildrenO; 

Select!  onList*  children  *  gn->GctChildrcnOl 
if  (haschildran) 

parCTit->PropagateO ; 

picture->SctCurrcnt(parcnt) ; 

for  (childrCTi->First();  IchildiCT->AtEndO;  childrcn->NcxtO) 

^  Selection*  child  *r  childrcn->GetCurO*>GetSclection(); 

parait*>Removc(child); 
picture->InsertBcforcCur(child) ; 
sl‘'>Appcnd(ncw  SelectionNode(child)); 

) 

picture“>Rcmovc(parent) ; 

I 

else 

sL>Append(new  SclcctionNodc(parcnt)); 

} 

SortO; 

I 

//  NumberOfGraphics  returns  the  number  of  graphics  in  the  picture. 

//  calling  itself  recursively  to  count  the  number  of  graphics  in 


no 


//  subpicturcs. 


int  Drawing:  J^umberOf Graphics  (PictSelcction*  picture) 

{ 

int  num  «  0; 

for  (picturc->FifstO;  !picturc->AtEndO;  pictur©->NcxtO) 

{ 

Selection*  s  *=  picturc->GetCumentO; 

if  {s->HasChildrenO) 

num  +=  NinnberOfGraphics({PictSelection*)  s); 


return  num; 

) 

//  DFD  ^ecihe  functions 

//  return  ellipse  that  contains  the  given  points 

Vertex*  Drawing:  dEndptsInOperator(Cooid&  Xj  Coord&  y)  { 
Vertex  *op  ■■  ol->HndC)p(x,y); 
if  (op)  I 

0oat  fx,  fy; 

op->GrtShapeO->GctCcntcr(fx,  fy); 

X  ■  (Coord)  fx; 
y  =  (Coord)  fy; 
return  op; 

) 

else 

return  0; 

) 


//  Find  point  where  data  flow  intersects  with  operator  in  order  to 
//  draw  data  flow's  endpoints  at  intersection  point  with  operator 
//Changed  2/6/91 
//  By  Patrick  D.  Barnes 

//  Description:  Fixed  bug  where  new  endpoint  calculation  is  hosed  whoi 
//  picture  is  zornned,  resized,  or  scrolled  Previous  code  did  not 
//  adjust  OperatorRadius  for  Zoom. 


void  Drawing::FindC)peratorlntersection(C^id&  x,  Cooid&  y. 
Coord  x2.  Coord  y2)  { 
float  aOO,  aOl,  alO,  scale,  a20,  a21; 
int  radius; 

Transformer  t; 

GctPicturcTT  (t) ; 

LGetEntries(aOO,  aOl,  alO,  scale,  a20,  a21); 
radius  (int)  ((float)  OperatorRadius  *  scale); 
if  (x  !»  x2  &&  y  !■  y2) 

{ 

double  tempi ,  temp2,  h,  a,  doi; 

tempi  « (double)  (x2  -  x); 

temp2  *  (doi±>le)  (y2  -  y); 

den  ■  sqrt((tcmpl  *  tempi)  +  (tcmp2  *  temp2)); 

a  « (double)  (radius)  *  (tetr^l  /den); 

h<=(temp2/ tempi)  *a; 

X  +s:  (Coord)  a; 

y  4«  ((3oord)  h; 


else 

I 


) 

else 


if(x--x2) 

if(y2>y) 

else 

y  radius; 

if(y  — y2) 

if  (x2  >  x) 

else 


y  +«  radius; 

if(y2<y) 


X  radius; 
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if(x2<x) 

X  --  radius; 

I 

} 

void  Drawing:  iFindTciniinatorInlcrsoction(Coord&  x»  Coord&  y. 

Coord  x2.  Coord  y2)  { 
float  aOO,  aOl,  alO,  scale,  a20,  a2I; 
int  radius; 

Transformer  t; 

GetPictureTTft); 

t.GetEntries(aOO,  aOl,  alO,  scale,  a20,  a21); 
radius  ■  (int)  ((float)  OperatorRadius  *  scale); 
double  dx,  dy; 
dx*  (double)  (x2-x); 
dy  *  (double)  (y2  -  y); 
int  steep  *  fabs(dy)  >  fabs(dx); 
if  (steep)  I 
if  (dy  <  0) 
radius  ^  >radius; 
y  •*■=  radius; 

X  +=  (Coord)  (dx  ♦  radius  /  dy); 

I 

else  { 
if  (dx  <  0) 
racflus  n  ’■radius; 

X  radius; 

y  (Cbord)  (dy  *  radius  /  dx); 

I 

I 

//  Finds  the  operator  that  contoins  the  given  points  and  modifies 
//  those  points  to  be  where  the  data  flow  intersects  with  the  operator 

Vertex*  Drawing::SetEndptsInC)pCTator(Coord&  xl,  Cooni&  yl, 
Coord&x2,Coord&y2){ 

Vertex*  csl  *=  EndptsInOperator(xl,yl); 
if(esl) 

if  (csl  ->GetClassId()  -=  OPERATOR) 

FindOpcratorInterscction(x  1  ,y  1  ,x2,y2); 

else 

FindTcrminatorIntcrsection(x  1  ,yl  ,x2,y2); 
return  esi; 

I 

//  Add  ellipse  to  operator  list 

void  Drawing:  K3pcratorAppcnd(EllipscSclection*  es,  int  id) 

i 

Operator*  os  -  new  Opcrator(cs); 
os>>Setld(id); 

oI->Appcnd(ncw  VcrtcxNode(os)); 

1 

void  Drawing:  :OpcratorAppend(RectScIection*  rs,  int  id) 

I 

Terminator*  ts  =  new  TeminatoKfs); 
ts->Setld(id); 

ol->Appcnd(new  VertexNodc(ts)); 

I 

//  Add  data  flow  to  operator  list 

void  Drawing: T)ataFlowSplincAppcnd(BSplineSdcction*  ss.  Vertex*  opl. 

Vertex*  op2) 

{ 

Edge*  e  «  new  Edge(ss,opl,op2); 
cl->Appcnd(ncw  £dgeNode(e)); 
if  (opl) 

op  1  ->AddOutput(c); 
if  (op2) 

op2->  Addlnput(e) ; 

} 

//  For  all  operators  selected,  add  their  mets  tags,  and  labels  to  the 
//  selection  list 
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void  Drawing:  :AddTextToSelectionList() 

{ 

int  op_indcx  •«  0,  sLindcx  *  0; 
int  •op_indcx_aiTay  *  new  int[sl->SizcO]; 
for  (si  ->Rrst();  !sl->AtEndO;  sl->NcxtO)  { 
int  cid  «=  sI-5>CetCur()->GctSclcction()*>GctQassId(); 
if  (cid  -=  TERMINATOR  II  cid  =  OPERATOR) 

op_mdcx_aiTay[op_indcx-H-]  =  sl^indcx; 

++sl_index; 

} 

Selection*  s; 

TcxtSelection*  ts; 

Texts  election*  mct_ts; 

Texts  election*  tag_ts; 

for  (int  i  =  0;  i  <  op_index;  ++i)  { 

8  *  sl->Indcx(op_indcx_arTay[i])*>GctSclcctionO; 

Vertex  *op  *=  (Vertex  *)  s->GetOwner0; 
if  (op)  { 

ts  =  op->GctLabcl(); 

if(ts) 

if(!sl->Find(ts)) 

sl->Append(new  SelectionNode(ts)); 

mct_ts  as  op->GetMET0; 
if  (metjs) 

if  (Isl->Find(met_ts)) 
sl->Append(new  SelcctionNode(met_ts)); 
tag_ts  =  op->GctTagO; 
if  (togjs) 

if  (!sl->Find(tag_ts)) 

sl->Appcod(new  SclcctionNode(tag_ts)); 

I 


//  For  all  operators  selected,  add  their  associated  self  loops  and  thei 
//  labels  to  the  selection  list 

void  Drawing:  tAddSclfLoopsToSelectionListO 

{ 

int  op_index  =  0,  sl_indcx  =  0; 
int  *op_indcx_anay  =  new  int[sl->Si2e()]; 
for  (si  ->First0;  lsl*>AtEnd();  sl->NextO)  { 
int  cid  *  sl*>GetCurO“>GctSclcction()->GctQassIdO; 

if  (cid  —  OPERATOR  II  cid  TERMINATOR) 
op_index_anay{opjindex++]  *  sl_indcx; 

-H-sl  index; 

) 

Selection*  s; 

EdgeList  *sll; 

for  (int  i  »  0;  i  <  opjindex;  ++i) 

\ 

s  «  sl“>Index(op_index_arTay[i])*>GctSelectionO; 

Vertex  *op  =  (Vertex  *)  s->GctOwner(); 
if  (op)  { 

sll  *  op->GctOutputs0; 

for  (sll->First();  !sll->AtEnd0;  sU->Ncxt0)  { 

Edge  •e  *  sll->GetCur()->GetEdgeO; 

if  (e->IsStatc0) 

sl*>Append(new  SclcctionNodc(C'>GetBSplineO)); 
TcxtSelection*  ts  *=  c->GctLabcl0; 

if  (ts  &&  !sl->Find(ts)) 

sl->Appcnd(new  SclcctionNodc(ts)); 

I 

) 

) 

I 


//  Modify  all  data  flows  associated  with  the  given  operator  to  naove 
//  to  the  new  location  that  the  operator  moved  to 

void  Drawing::RcplaceAssociatedObjccts(Vertcx*  vn,  DrawingVicw*  dv) 

( 

if  (vn)  I 

ReplaceInputDFSplines(vn,  dv); 

RepiaceO(^utDI^pIines(vn.  dv); 
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//  Modify  all  input  data  flows  associated  with  an  operator 
//Changed  2/6/91 
// By  Patrick  D.  Barnes 

//  Description:  Rxcd  bug  where  new  ent^oint  calculation  is  hosed  when 

//  picture  is  zoomed,  iwizcd,  or  scrolled.  Previous  code  did  not 

//  transform  the  original  spline  coordinates  before  and  after  calc 
//  of  new  endpoint  "GetCentcr"  is  in  absolute  Coord,  but  GctOriginal 
//  and  CreateReshapcdCopy  require  original  Coords. 

void  Drawing: :RcplaccInputDFSplines(Vertcx  *op,  DrawingView*  dv) 

{ 

float  fx,  fy, 

Coord  cx,  cy; 

op->GctShapc()->GetCcntcKfx»  fy); 
cx  ss  (Coord)  fx; 
cy  =  (Coord)  fy; 

Coord  *x_new,  ♦y^new; 

Coord  x_new_n,  y_ncw_n; 

Coord  *x_old,  *y_dld; 

Coord  tx,  ty; 

BSplineSelection*  oldss; 

BSplineSelection*  newss; 

EdgeList*  isl »  op->GctInputsO; 

int  size  *  isl->SizeO; 

int  index  »  0; 

isl->Rrst(); 

while  (index  <  size)  { 

Edge  *c  *  isl->GctCur()->GetEdgeO; 
if  (c->IsStreamO)  { 

oldss  B  e^>GetBSplineO; 

TcxtSelection*  ts  **  c->GetLabclO; 

TextSclection*  lat_ts  *  e->GctLatcncyO; 

int  num  *  oldss->GetOriginal(xjold,  y_old); 

//  Transfonn  the  original  point  next  to  the  end  into  absolute 

//  Coordinates.  Requires  both  graphic  and  pituie  transfonns. 

Transformer  *i  ■*  oldss->GctTransfonncrO; 

Transformer  pt; 

GetRctureTT(pt) ; 

t->Transform(x_old[num-2],  y_old[num-2],  tx,  ty); 
p  tTransform(tx  ,ty) ; 

x_ncw_n  »  cx; 
y  jncw_n  =  cy; 

if  (op->GetaassIdO  —  OPERATOR) 

RndOpcratorIntcrscction(x_new_n,  y_new_n,  tx,  ty); 

else 

Rn(frerminatorIntcrscction(x_ncw_n,  y_new_n,  tx,  ty); 

//Transform  the  point  back  to  original  Coordinates. 

//  Requires  both  graphic  and  pittire  transforms. 
pUnvTransfotm(x_new_n.  y_new_n,  tx,  ty); 
t->InvTransform(tx,  ty,  x_ncw_n,  y_ncw_n); 
x_ncw  *  x_old; 
y_ncw  =  y_old; 
x_ncw(num-l]  =  x_new_n; 
yjncw[num-l]  *  y_ncw_n; 

newss  K  (BSplineSelcction*)  oldss->CrcatcRcshapcdCopy(x_new,y_ncwjium 

JJATAFLOW^SPUNE); 

ReplaceChange*  re  «  new  Rq)laoeChange(this,  dv,  oldss,  newss); 
rc->Do(); 

RcplaccLabcKnewss,  ts); 
if(ts) 

R^laceLatency(ts,  lat_ts); 


ReplaceLatency(rrcw8s,  latjte); 


-M-index; 

isl->lndex  (index); 


//  Replace  all  output  data  flows  connected  to  operator 
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//Changed  2/6/91 
//  By  Patrick  D.  Barnes 

//  Description:  Fixed  bug  where  new  endpoint  calculation  is  hosed  when 
//  picture  is  zoomed,  resized,  or  scrolled  Previous  code  did  not 
//  transform  the  original  spline  coordinates  before  and  after  calc 
//  of  new  endpoint  ''GetCenter"  is  in  absolute  Coord,  but  GetOriginal 
//  and  CreateReshapedCopy  require  original  Coords. 


void  Drawing:  :Rq)laccOutputDFSplincs(Vcftcx  *op.  Drawing  View*  dv) 

( 

float  fx,  fy; 

Coord  cx,  cy; 

op->GctShapeO*>GetCenteKf3t,  fy); 
cx  *!  (Coord)  fx; 
cy  « (Coord)  fy; 

Coord*  x_new; 

Coord*  y_new; 

Coord  x_new__0,  y_ncw_0; 

Coord*  x_old; 

Coord*  yjold; 

Coord  tx,  ty; 

BSplineSelection*  oldss; 

BSplineSelection*  newss; 

EdgcList*  osl  *sop->GetOutputsO; 

int  size  «  osl->SizcO; 

int  index  »  0; 

osl->Fiist(); 

while  (index  <  size)  { 

Edge  *e  «  osl->GetCurO->GctEdgeO; 
if  (e->IsStreamO)  { 

oldss  ■*  osl->GetCurO>GetEdgcO->GetBSplineO; 
TextSelection*  ts  »  e->GetLabel(); 

TextSelcction*  lat_ts  ■*e->GetLatencyO; 

int  num  «  oldss->GetOriginal(x_old,  y_old); 
x_new_0  =  cx; 
y_ncw_0  *  cy; 


//  Transform  the  original  point  next  to  the  end  into  absolute 

//  Coordinates.  Requires  both  graphic  and  pituie  transfomis. 
Transfoimer  *t  =  olds$->GetTransfofnierO; 

Transfomierpt; 

GctPictureTT(pt); 

t->Transform(x_oId[l],  y_old[l],  tx,  ty); 
ptTran5fonn(tx,ty); 


if  (op->GetaassId()  =  OPERATOR) 

RndOpcratorInterscction(x_new_0,  y_new_0,  tx,  ty); 

else 


FindTerminatorIntcrsection(x_ncw_0,  y_new_0,  tx,  ty); 


//  Transfoim  the  point  back  to  original  Coordinates. 

//  Requires  both  graphic  and  piture  transforms. 

ptJnvTransform(x_ncw_0,  y_ncw_0,  tx,  ty); 

t->InvTransform(tx,  ty,  x_ncw_0,  y_ncw_0); 

x_ncw  =  x_old; 

y_ncw  «  y_old; 

x_ncw[0]  *  x_new_0; 

y_ncw(0] »  y^newjO; 

newss  *  (BSplineSelection*)  oldss->CreateReshapedCopy(x_new,y_new/ium 

XIATAFLOW^SPUNE); 

ReplaceChange*  re  «  new  ReplaoeC!hange(this,  dv,  oldss,  newss); 
rc->Do(); 

Rq)laceLabel(news$,  ts); 
if  (ts) 

RqplaccLatanicy(ts.  lat_ts); 
else 

ReplaceLatency(newss,  iat_ts); 


*M“index; 

osl->lndex(index); 

) 


void  Drawing;:ReplaceLabe] (Selection*  newsel.  TextSelection*  ts)  { 
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if(ts){ 

SclcctionList*  tranp  =  GctSclcctionsO; 

Selcct(ncwscl); 

Extend  (ts); 

Align(Centcr,  Center); 

Select(temp); 

I 

} 

void  Drawing: :Rq)laceLatency(Sclcction*  ncwsel,  TextS election*  lat_ts)  { 
if  (lat_ts)  { 

SelectionList*  tonp  =  GctSelcctionsQ; 

Sclect(newscl); 

Extcnd(lat_ts); 

Align(Ccntcr,  Center); 

Align(Top,  Bottom); 

Select(temp); 

I 

} 


//  add  Trigger  condition  to  operator  selection  list 

void  Drawing::TriggerAppend(TextSelcction*  if_ts,  EUipseSelection*  op)  { 
((Operator  ♦)op->GetOwncr())*>AddTriggcr_If(if_ts->GctString()); 

) 

void  Drawing::CoinmcntApp«id(TextSclcction*  ts)  i 
cl->Appcnd(new  CommentNode(ts)); 

I 


//  write  PSDL  specification  of  drawing  to  tempoiary  file  to  be  edited 

void  Drawing:  :WritcPSDLSpcc(FILE  *psdl)  { 
const  char  ♦name  ■  state-:^cd)rawingNameO; 
fprintf(psdi;'%s".OPER^TKN); 
if  (name) 

fprintf(psdl  ,**%s\n*'4iame); 
else 

fprintRpsdl  ,”9&s\n"  JD_TKN); 

fprintf(psdl/'%s%s%s%s^SraC„TKN45ESC_TKN.TEXT_TKN,ENDJIXN); 


//  write  the  PSDL  graph  to  a  file 

void  Drawing: : WritcPSDLG raph(hlLE*  iptr) 

{ 

fprintf(iptr»GR_TKN); 

WriteVertices(iptr); 

WriteEdges(iptr); 

) 


//  write  PSDL  edges  to  file  containing  PSDL  graph 


void  Drawing:  :WritcEdges(FILE*  fptr)  ( 
for  (el->HrstO;  Iel->AtEndO;  el->NextO)  I 
Edge  *c  «  el->GetCur()”>GetEdgeO; 
if  (c->bStateO) 

continue; 

char*  froml  ■  e->GctFromOpO  ?  e->GetFromVcrtexLabclO  :  EXT^TKN; 
froml  «  froml  ?  froml :  IDJTKN; 

char*  tol  -  e->GetToOpO  ?  e->GctToVcrtcxLabclO  :  EXTJTKN; 
tol  «*  tol  ?  tol :  IDJTKN; 

char*  label  *  ©->GctLabel()  ?  e->GetValidLabclStringO  :  IDJTKN; 
char*  latency  m  e->GetLatencyStringO; 
if  (latency) 

fprintf(fptrv  "flfes  %s  :  %s  %s  ->  EDGEJIKN,  label, 
latency,  froml,  to!); 


else 


fprintf(fotr,  ”%s  %s  %s  •>  %s\n",  EDGEJTKN,  labd, 

froml,  tol); 


delete  Q  froml; 
delete  Q  tol; 
delete  Q  label; 
delete  Q  latency; 

} 
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//  write  PSDL  vertices  to  file  containing  PSDL  graph 

void  Drawing:  :WritcVcrtices(FE-E*  ^tr)  { 
for  (ol->FirstO;  !ol->AtEndO;  ol->NcxtO)  { 

TcxtSclection*  ts  «  ol->GetCurO->Gct'\feftcxO*>GctLabclO; 
char  *labc]  *  ts  ?  ts->GctVaIidStringO  :  IDJITCN; 
ts  =  ol->GctCurO>GetVcftcx()->GetMET(); 
char  *met  ■  ts  ?  ts->GctStringO  :  0; 

{printf(fptr,  "%s  %s  ”,  VERJTKN,  label); 
if  (met) 

fprintf(fptr, 9fcs\n",mct); 

else 

fprintf(fptr,*Nn"); 

delete  Q  met; 
delete  Q  label; 

) 


void  Drawing::WritePSDLConstraints(FILE  *fptr)  { 
int  count  =  0; 

for  (ol->RrstO;!ol->AtEndO;ol->NextO)  { 

Vertex  ♦op  *  ol->GctCurO->GetVertcxO; 
if  (op>>HasCon5traints0)  { 
if  {!count++) 
fprintf(fptr.CON^TKN); 
op->WritcPSDLConstraints(fptr); 

} 

) 

) 


void  Drawing::WritcPSDLImpl(FILE  *fptr)  | 
fprintf(fptrJMP_TKN); 
WritcPSDLGraph(fplr); 
el->WritcStreamTypcs(fptr,STREAM_TKN); 
WritcPSDLConstraints(fptr); 
fprintf(fptr,  ”%s“,  ENDJTIW); 

} 


//  write  psdl  specification  file  and  psdl  implementation  file  and  write 
//  psdl  specification  file  for  all  the  operators  and  write  file  needed 
//  to  rebuild  operator  list  when  reentering  editor 

void  Drawing::WritcDFDRles(char*  dir,  const  diar*  pfototypc_name) 


char*  spec  filename  *  new  char[strlen(dir)  +  strlen{piDtotypej:»ame) 

+  SPEC_EXT_LEN  +  1]; 

strep  y(spec_filcname,dir); 
strcat(spec_fi  lename,prototypc_name); 
strcat(spec_fi  lename,SPEC_PSDL JSXT); 

FILE*  sptr  *s  fopen(spec_filename,  "w"); 

WritcPSDLSpec(sptr); 

fcIose(sptr); 

delete  spec.filename; 


char*  imp  filename  *  new  char[strlen(dir)  *  strlen(prototype_name) 

+  IMP^EXT^LEN+1]; 


strcpy(imp_filename,di  r) ; 
strcat(imp_filcnamc,prototype_name); 

strcat(imp_filenamejMP_PSDL_EXTO; 
FIT  JR*  iptr  «=  fopen(imp_fileoamc,  "w"); 


WritcPSDLImpKiptr); 


fclose(iptr); 

delete  []  imp_filename; 

WritePSDLFoiAllOpcratorsCdir,  prototype_name); 

char*  gn^h_filename  *  new  char  [strlen(dir)  +  strico(piDtotypc_namc)  + 

DFD^EXT^LEN+1]; 

strcpy(graph_filename,di  r); 

strcat(graph_fiicname,prototypc_namc); 

strcat(graph_filenamcJ)FD_EXX); 

FILE*  gptr  ■  fopcn(graph_filaiamc,”w"); 
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WritcDFDInfo(gptr); 

fc)ose(gptr); 

delete  graph_filename; 

} 

//  read  psdl  specification  file  and  psdl  in^Icmcntation  file  and  read 
if  psdl  specification  file  for  all  the  operators  and  read  in  file  to 
//  rebuild  operator  list 

void  Drawing::RcadDFDFiles(char*  dir,  const  char*  piototype_namc) 

^  char*  eraph  filename  «  new  char  Istrlcn(dir)  +  strlen(piDtotypc_namc)  + 

-  DFD_EXT_LEN+1]; 

strcpy(graph_filenamc,di  r) ; 

strcat(graph_filcname,prototypc_namc); 

strcat(graph_filcnameJ)FD_EXT); 

FILE*  gptr  =  fopen(graph_filenamc,*'r''); 
if  (gptr  !*  nil) 

{ 

ReadDFDInfofgptr); 

fclosc(gptr); 

) 

delete  graph_filename; 

CheckForComposites(dir,  prototype_name); 

} 


//  write  PSDL  spccificatio  for  each  operator  to  a  file  created  by  contenating 
//  the  operator’s  identifier  with  the  prototype  name 


void  Drawing::WritcPSDLForA110pcrators(char*  dir,  const  char*  prototype_name) 

^or  (ol->FirstO;  !ol->AtEnd();  ol->NcxtO) 

^  TextSclection*  ts  -  ol->GetCurO->GctVertcxO->GetLabelO: 

if(ts) 


char*  fixed_namc  ■  ts->GctValidStringO; 

char*  filename  -  new  char(strlcn(dir)  +  strien(piototype_name) 

+  striai(fixed_namc)  +  SPEC_EXT_LEN  +  2] 


strcpy(filename,dir); 

strcat(fi  lcnamc,prototype_name); 
strcat(fi  lename,**,") ; 
strcat(fi  lcname4ixed_name): 

strcat(fi  lename,SPEC_PSDL_EXT)  \ 

FILE*  fptr  ■  fopcn(filename,'’w**); 

oi->GetCurO->GetVeitex(>->WritcPSDL(fptr); 

fclose(fptr); 

delete  []  fixed_name; 

delete  []  filename; 

1 

) 

) 


//  Add  the  graphics  selection  s  to  the  current  drawing 
U  Created:  10/15/94  by  C.S.  Eagle  for  .graph  format  change 


void  DTawing::AddInputSelection(Selcction  *s)  ( 

Selects); 

AppendQ; 

drawingvieW“>Added(); 

dra  wingvicw->ErascHandlcs  0; 

I 

//  ReadFgColor  and  ReadBgColor  read  color  index  values  from  the  file 
//  pointed  to  by  fptr  and  returns  an  IColor  * 

//  Created:  10/1 5/94  by  C.S.  Eagle  for  .graph  format  change 

IColor  *Drawing::ReadFgColor(FILE  *fjptr)  { 

MaplColor*  mf  *=  state“>GctMapIFgColorO; 
int  enum; 

fscanf (f ptr,”%dVn",&cnum) ; 
return  mf->Indcx(cnum); 

I 

IColor  *Drawing::ReadBgColor(FILE  *fplr)  | 

MaplColor*  mf  **  state->GctMaplBgColorO; 
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int  cnum; 

fscanf (fptr,’'%dSn*’,  &cnum) ; 
return  mf’>Index(cnuin); 

} 

//  WritcFgColor  and  WritcBgColor  write  color  index  values  for  IColor  *c 
//to  file  *fptr 

//  Created;  10/15/94  by  C.S.  Eagle  for  .graph  fonnat  change 

void  DTawing:;WritcFgColor(HLE  *fptr,  IColor  *c)  { 
int  cnum  =  statc->GctFgColorIndcx(c); 
fprintf(fptr,*’%£fsn*\cnum); 

} 


void  Drawing:  :WriteBgColor(FILE  *fpu,  IColor  *0)  | 
int  cnum  state*>GetBgColorlndex(c); 
fprintf(fptr,"9E>dSn*',cnum); 

) 


//  ReadFont  creates  a  new  IFont  from  information  in  file  *fptr 
//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  fonnat  change 

IFont  ♦DTawing::ReadFont(FILE  ♦fptr)  { 

MapIFont*  mf  =  statc->GctMapIFont(); 
int  fontnum; 

fscanf(fptr,”9WVn",&fontnum); 
return  inF>Indcx(fontnum); 

) 


//  WriteFont  save  font  information  to  file  •fptr 

//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  format  change 

void  Drawing::WritcFont(FILE  *fptr,  IFont  *f)  { 
int  fontnum  »  state->GetFontIndex(f); 
fprintf(fptr"9&dyo"»fontnum); 

1 

//  read  a  point  rom  a  file 

//  Created:  10/17/94  by  C.S.  Eagle  for  .graph  format  change 

void  DTawing::ReadPoint(FILE  •fptr^nt  textflag.  Coord  &x.  Coord  &y)  { 
fscanf(fptr,  &x,  &y); 

if  (Itextflag)  { 

Transfonner  *1 «  state->GetGraphicGSO«>GctTransformer(); 

t->InvTransfotm  (x.y); 

I 

) 

//  write  a  point  to  a  file 

//  Created:  10/17/94  by  C.S.  Eagle  for  .graph  fonnat  change 

void  DrawingirWritePointfFILE  ♦fptr.  Transfonner  ♦t.  Coord  x»  Coord  y)  { 
t->Transform(x,y); 
fprintfffptr,  %dVn"a»y); 

} 


//  WriteTS  writes  a  TcxtSclection  to  file  *fptr 

//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  fonnat  change 

void  Drawing::WritcTS(TcxtSelection  *ts,FILE  •i^tr)  { 
if  (Its)  I 

lprintf(fptr,”(JSn‘*): 

return; 

1 

char  *10X1 « ts->GrtStringO; 
if  (Itext)  { 
fprintf(fptr/'OVn’*); 
return; 

} 

fprintf(fptn  "%dVn%s\n",strien(text),text); 

WriteFontffptr,  (IFont  *)  ts->GctFont0); 
Wri!eFgColoi<fptr,  aColor  ♦)  ts->GctFgColor0); 
fprintf(fptr,”0Nn"); 

WritcPomt(fptr,ls->GctTransformcr().0,0); 
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//  RcadTS  reads  a  TcxtSclcction  from  file  ♦fptr 

//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  format  change 

Texts  election  ♦Drawing:  :Rea(iTS(QassId  cid,  FILE  '•'fptr)  { 
TextSelection  •rval »  0; 
char  tcxt[256]; 
int  len; 

charfonnat[15]; 
fscanf  (f ptr,'’%cNi“,  &I  cn) ; 
if  (len)  { 

sprintf(format,  *'%%%dc\n"4cn); 
fscanfffpir,  fonnat,  text); 
textHen]  “  0; 

ival  s=  new  TextSclection(cid,tcxt,lcn^te->GctTcxtGSO); 
ival->SetFont(RcadFont(fptr)); 

ival->SetColors(RcadFgColoi(fptr)4icwIColor("White”)): 
int  defPos; 

fscanf(^tr,"9&dNn"»&defPos); 
if  (IdcfPos)  { 

rvaI->SctDefPosition  (false); 

Coord  X,  y; 

RcadPoint(fptr,l  ^,y); 

ival->SetTransformcr(new  Tiansformerfl  ,0,0,1  »x,y)); 

} 

AddIi^>utSeleGtion(rval) ; 

} 

return  rval; 

) 


//  WriteGraphEdge  saves  all  the  infoimation  needed  to 
//  represott  an  edge  m  the  graph 

//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  format  change 


void  Drawing::WriteGraphEdge(FILE  ♦outfile,  Edge  *d0  { 
fprintf(outfile,  "%u\n",  DATAFLOW_SPLINE); 
int  to_ind«i; 
if  (df->GetToOp()) 
to_index  =  df->GetToC>p()->GetId(); 
else 

to_index  =  -1; 
int  from_index; 
if  (df->GetFromOpO) 
from_index  »  df->GetFromC)p()->GetIdO; 
else 

from_index  *  -1; 

BSplineSelection*  flow  ■  df->GctBSpUne0: 

Coord  ♦x,  ♦y; 

int  npts  «  flow->GetOrigina!(x,y); 
fprintf(outfile,"9&d  %d  %d  %u\n",  npts, 

from  jndex,  to_indcx.  df->StrcamTypeO); 
for(int  i  «  0;  iopts;  i++) 

WriiePoint(outfile,flow->GctTransformcK).xIi].y[i]); 

WriteFgColoi<outfilc,aColor  •)  flow->GctFgColorO); 
WriteTS(df->GetLabcI(),  outfile); 
if  (from_index  lo_index) 

WritcTS(df->GctUtencyO,  outfile); 


//  Writes  the  t^erator's  attributes  to  disk. 

//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  fomiat  change 

void  Drawing;:WritcGraph\fertcx(FILE  ♦outfile.  Vertex  *05)  { 
int  cid  =  os->GctClassId0; 
fprintf(outfilc,  *'%u\n**,  cid); 
fprintf(outfile,”%<I\ii",  os->GetId0); 

Selection  ♦s  «  o6->GctShape0; 
if  (cid —  OPERATOR)  I 
int  xO,  yO,  rx,  ry; 

EllipseSelection  ^es  »  (EllipseSelection  ♦)  s; 
cs-::^etOriginaI  (xO.yOj^.iy ); 

WritcPoint(outfiic,  es->GetTransfoimcr0tX0,y0); 
fprintfloutfile,  “%d  %dNn"jx,ry); 

I 


Coord  1,  b,  r,  t; 

RectSelection  •re  =  (RcctSclcction  •)  s; 
re->GetC)riginal2( )  ,b  j.t) ; 

WritcPoint(outfiIc,  rs->GctTiansformer04,b); 

WritcPomt{outfilc,  rs->GctTiansformcrO,r,t); 

WritcFgColor(outfilc,aColor  •)  s->GetFgColorO); 
WritcBgColor(outfile,(IColor  •)  s->GctBgColorO); 
WritcTS(os->GetLabcl(),outfiIc); 
if  (cid«=  OPERATOR) 

WriteTS(os->GctMEr0.outfilc); 

else 

fyrintf(outfile,"Osn"); 

I 

//  write  information  to  file  to  bc  able  to  rebuild  operator  list  when 
//  coming  back  into  editor 

//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  format  change 

void  Drawing:  tWriicDFDInfo  (FILE*  ^tr)  { 

for  {ol->Rrst();  lol->AtEndO;  ol->Next()) 
WriteGraphVcitcx(fptr,ol->GetCurO->GctVeftexO); 

for  (el->FirstO;  !el->AtEndO;  el->NextO) 
WriteGraphEdge(fptf»el->GetCurO>GrtEdgcO); 

for  (cl->RistO;  !cl->AtEndO;  cl->NextO)  { 
fyrintf{fptr,"%u\n'*,COMMENT) ; 

WriteTS(cl->GetCurO>GetSelectionO,  fptr); 

) 

fprintf(fptrf  *'%u\n‘*»  END_MARKER); 

fprintf(fptr/'%d  %dSn"4draw->wWidth04draw->wHcight0); 

Perspective  •p  «  drawingview->GetPe!spcctiveO; 

fprintf(fptr;'%d  9&d  %d  %d\n".p->curx»  p->cury,  p->curwidth,  p->curhcight); 

WritcFgColoKfptr.  state->GetFgColorO); 

WritcBgColorffptr,  state->GetBgColorO); 

WritcFont(fptr,  state->GetFontO); 

) 


//  Builds  the  stream  from  disk. 

//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  format  change 

void  Drawing:  :ReadGraph£dge(FILE  •infile)  ( 

CZoord  *x,  •y; 
int  is_stream; 
int  fiom_index,  to_index; 
int  npts; 

fscanf(infi)e,  *’%d  %d  %d  %u\n",  &npts, 

&from_index,  &to_index,  &is_stream); 

X  *  new  Coord[npts]; 
y  «  new  Coord[npts]; 
forfint  i  *  0;  i<npts;  i++) 

ReadPoint(infile,0^[i],y(i]); 

IBrush  •oldBrush  *  statc->GctBrushO; 

MaplBnish  •mb  *  state->GetMapIBnjshOj 

IPattem  •temp  »  state->GetPattemO; 

siaie->SetPattera{sUte->GetArrowPattcmO); 

statc->SetFgColor(ReadFgColor(infilc)); 

BSplineSclcction  •flow; 
if  (from^index  **  to_indcx)  { 
state->SctBrush(mb->FindOrAppend(0»0xfIff,l  ,0.1)); 
flow  «  new 

BSplineSeIcction(SELFLOOP,x,yjipts,statc->GctGraphicGS0); 

I 

else  { 

if  (is_stream  2) 

atate->SetBrush(mb->FindOrAppcnd(0,0xf0f0,2,0,l)); 
flow  m  new 
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BSplineSeIcction(DATAFLOW_SHJNE,x,y,iipts^tate->GetGraphicGS()); 

) 


DataFlo  wSplincAppcnd  (flow,ol->RiKlC^(f rom_indcx  )»ol->FindC)p  (to_indcx)) ; 

6tate->SetBru5h(oldBn)sh); 

sute->SctPattcm(tcinp); 

AddlnputSelection(flow); 

TcxtSdection  *1131116; 
if  (fromjndcx  »=  to_indcx) 
name  *  ReadTS(LABEL_SL,infile); 
else 

name  =  RcadTS(LABEL_DF4nfile); 

Edge  *c  *  (Edge  *)  flow->GctOwnei(); 
if  (name)  { 

c->SctLabel  (name); 
if  (namc->GetDefl^sitionO) 
flow->Align(Centcr,  name,  Center); 

I 

if  (from_index  !» to_indcx)  { 

TextSelcction  ^lat  «=  RcadTS(LAT_DF,infile); 
if(lat){ 

e->SetLatency(lat); 

if  Oat->GctI>efPositionO)  { 
if  (name)  { 

name->Align(Centcr,lat,Centcr); 

name->Align(Bottom,lat,Top); 

} 

else 

flow->Align(Ontcr,  lat.  Center); 

} 

) 


//  Builds  an  operator  from  a  disk  file. 

//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  foimat  change 

void  Drawing::RcadGraphVcrtex(FILE  *infile4nt  cid)  { 
int  id; 

fscanf(infile,’'%dSn '\&id); 

int  xO,  yO,  rx,  ry; 

RcadPoint(infiIc.O,xO,yO); 
if  (cid OPERATOR) 
fscanf (infile,  *'9&d  %dVn",  &rx,  &iy); 
else 

RcadPoint(infile,04X,ry); 

5tate->SetFgColor(ReadFgColor(infile)); 

state->SetBgC!olor(RcadBgColor(infile)); 

Selection  ^s; 

if  (cid  =  OPERATOR)! 

EUipseSelection  ^es  =  new 

EllipscSclection(xO,  yO,  rx,  ry,stato->GctGraphicGSO); 
OperatorAppend(es  4d); 
s«cs; 

! 

else  I 

RcctSelection  *is  =  new 

RcctSelcction(xO,  yO,  rx,  iy,state->GetGraphicGSO); 
Operate  rAppend(rs4d); 

E«Ts; 

I 

Addli^utSelection(s); 

TextSelection  *namc  «  RcadTS(LABEL_OP,  infile); 
TextSelcction  *mcts  »  RcadTS (MET^OP,  infile); 

Vertex  *op  *  (Vertex  *)  s->GetOwner0; 
if  (name)  { 
op->SetLabcl(name); 
if  (name->GetDefPositionO) 
s->Align(Ccnter,  name.  Center); 

if  (mets)  { 

((Operator  •)op>->SctMET(mets); 
if  (incts->GetDefPo6itionO)  I 
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s->Align  (Center,  mets,  Center); 
s->Align(Top,  mets.  Bottom); 

} 


//  Read  in  file  to  rebuild  the  graphics  picture,  and  the  underlying 
//  DFD  structure 

//  Created:  10/15/94  by  C.S.  Eagle  for  .graph  format  change 

void  Drawing:  :RcadDFDInfo(FILE*  fptr)  { 

Classid  cid; 

TextSelection  *ts; 

state->SrtTcxtGS(0,0,statc->GctTextPaintcrO); 
do  I 

fscanf(fptr,  ''%u",  &cid); 
switch  (cid)  { 
case  TER^flN  ATOR : 
case  OPERATOR: 

RcadGraphVertcx(fptr,cid); 

break; 

case  DATAFLOW.SPUNE: 

ReadGraphEdge(fptr); 

break; 

case  COMMENT: 
ts  *  Rea(rrS(COMMENT,fptr); 
cl->Appcnd(new  CommenlNodc(ts)); 
break; 

} 

)  while  (cid  !««END_MARKER); 

Shape  *s  ■  new  Shape; 
int  X,  y,  w.  h; 

fscanf(fptr,"%d  %d\n",&w,&h); 

s*>Rect(w4i); 

idraw>>Re8hape(*s); 

Perspective  p; 

fscanf(fptr,”%d  %d  9W  %(Ni“,&x,  &y,  &w,&h); 

p.Init(x,y,w4i); 

dra  wingview->Adjust(p) ; 

state->SetFgColor(ReadFgColor(fptr)); 

stote->SctBgColoi^eadBgColoi(fptr)); 

state->SctFont(ReadFont(fptr)): 

QearO; 

drawingview>>£raseHandlesO; 

) 


void  Drawing:  :GenerateAda(FIL£  •fptr,  Vertex  •v)  { 
v->GcnerateAda(fptr); 

} 

void  Drawing:  :TagOpcratoKVertex  ♦v,  char  *tag)  { 

TextSelection  *tagsel « 

new  TextSelection(tag,strien  (tag)  ,state>>GetTextG  SO); 

AddlnputSelection(tagsel); 

v->SetTag(tagsel); 

TextSelection  *15  ■*  v->GetLabelO; 
ls->Align  (Center,  tagsel.  Center); 
ls>>Aiign(Top,  tagsel.  Bottom); 
drawingview>>£raseHandlesO; 

QearO; 

1 

void  Drawing::CheckFoiComposites(char*  dir,  const  char*  prototype^name) 

I 

for  (ol*>RrstO;  !ol->AtEnd();  ol->NextO) 

I 

TextSelection*  ts  «‘ol->GetCurO->GetVcrtcx()->GctLabel(); 
if(ts) 

I 

char  *fixedjname  ■»  ts->GctValidStringO; 

char*  filename  ■  new  char{5trlen(dir)  +  stricn(prototype_namc) 

+  strlen(fixed_namc)  +  DFD_EXT_LEN  +  2]; 

strcpy(fi  lename^ir); 
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strcat(fi  Icnamc^J  iototypc_iiame); 

strcat(filenamc,'’.")i 

sticat(filenamc^  xcd_name) ; 
strcat(filcnamc J)FD_EXT) ; 
if  (Exists(filcname)) 

TagOperato  Kol->GetCu  r()->GetVertcx 
delete  []  fixcd_namc; 
delete  []  filename; 


} 


I 


drawingview.h 


#ifiidef  drawingvicw_h 
#dcfinc  drawingview_h 

tincludc  <InlerViewsA3raphic/gibIock.h> 

//  Declare  imported  types. 

class  Damage; 
class  Page; 
class  Rubberband; 
class  Selection; 
class  Selecdonlist; 
class  State; 
class  TextEdit; 

//  A  DrawingView  displays  the  user's  drawing. 

class  DrawingView  :  public  GraphicBlock  { 
public: 

Dra  wingVicw(Pagc*); 

-'DrawingVicwO; 

void  SctSelcctionListfSelectionList*); 
void  SetStatefState*); 
void  SetTools(Interactor*); 

void  DrawO; 

void  Handle(Event&); 

void  Manipulate( 

Evcnt&,  Rubbciband*.  int»  boolean  constiain=tme,  boolean  crase=truc 

); 

void  Edit(Event&,  TextEdit*,  Graphic*  «  nil); 

void  DrawHandlesO; 
void  RedrawHandlesO; 
void  EiaseHandlesQ; 

void  ErascExoessHandlcs^electiwiList*); 
void  ErascPidcedHandles(Sclcction*); 
void  ErascPickcdHandles(SelectionList*); 
void  ErascUngraspcdHandles(Selection*); 

void  ReselAIlHandiesO; 

void  AddedO; 
void  DamagedO; 
void  RepairQ; 

void  MagnifyfCoord,  Coord,  Coord,  Coord); 

void  ReduccO; 

void  EnlaigeO; 

void  NormalSizcO; 

void  RcduccToFitO; 

void  CenterPageO; 

prelected: 

void  RcconfigO; 

void  Rcdraw(Coord,  Coord,  Coord,  Coord); 
void  ResizeO; 

float  LimitMagnificatioo(float); 
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void  StartTextEditing(Ev«it&,  TextEdit 
void  EndTextEditingO; 
void  RedrawTextEditorO; 

Damage*  damage; 

Graphic*  gs; 

Page*  page; 

Painter*  lasterxor; 

SelcctionList*  si; 

State*  stale; 

TextEdit*  textedit; 

Intcractor*  tools; 

1; 

#cndif 


drawing  view.c 


#include  "drawingviewJi" 

#include  "istringJi" 

#include  "listselectiLh'* 

#include  "page.h" 

#include  "slpicLh" 

#include  "stateii*' 

#include  "textedith" 

#include  <dhtterViews/Graphic/damagedi> 

#include  <lnterViews/evcnth> 

#include  <InterVicws^ainteri»> 

#include  <dnterViews^eispectivcJi> 

#include  ^terViews/nibbandJi> 

#include  ^terVicwsAjensorii> 

#include  ^tcrViews/BhapeJt> 

#include  <stdlibJt> 

#definc  _POSDC_SOURCE 
#include  <aiath  Ji> 

//  DrawingView  caches  its  canvas'  contents  if  possible  to  ^wed  up 
//  redrawing  after  expose  events. 

static  const  int  PAD  «  0;//  we  don't  want  any  padding  around  graphic 

DrawingView  :T)rawingView  (Page*  p) :  (updownEvents,  p,  PAD,  Center,  Binary)  { 
damage  »  nil; 
gs  «  nil; 
page^p; 
rasterxor »  nil; 
si  nil; 
state  B  nil; 
textedit «  nil; 
tools  «■  nil; 

SetCanvasType(CanvasSaveContents); 

1 

//  Free  storage  allocated  to  store  membeis. 

DrawingView:  :-DrawingView  0  { 
delete  damage; 

Unref(rasterxor); 

1 

//  Define  access  functions  to  set  membeis'  values.  Only  Idraw  sets 
//  their  values. 

void  Drawing\^ew::SetSelectionList  (SelectionList*  slist)  { 
si  c  slist; 

I 

void  DrawingView:  :SctState  (State*  s)  { 
state  s; 

1 

void  D^awing^^ew::SctTools  (Interactor*  t)  { 
tools  Kt; 


*,  Graphic*); 


//  ke^s  track  of  damaged  areas  of  drawing 
//  remembers  text  being  edited 
//  snaps  points  to  grid 

//  stores  painter  with  which  to  draw  handles 
//  lists  current  Selections 
//  stores  Graphic  and  nonGraphic  attributes 
//  redraws  in-place  texteditor  if  necessary 
//  handles  events 
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} 


//  Draw  draws  the  witire  view.  Draw  calls  Check  for  its  side  effect 
//  of  flushing  any  redraws  caused  by  a  dialog  box’s  removal  before 
//  drawing  the  view. 

void  DrawingView:  J>aw  ()  { 
if  (graphic  !=  nil)  { 

Graphic*  backup  *  graphic; 
graphic  »  nil; 

CheckO; 

graphic  s  backi^; 

GraphicBl  ock :  JDrawQ; 
daniage>>ResetO; 

ResetAllHandles  0; 

RedrawHandlcsO; 

RedrawTextEditorO; 

I 

I 


//  Handle  delegates  input  events  to  the  tools. 

void  DrawingA^cwrilandle  (Event&  e)  { 
tools>>Handle(e); 

) 


//  Manipulate  lets  the  user  manipulate  the  Rubbeiband  with  the  mouse 
//  until  a  specified  event  occurs. 

void  DrawingVicw::Manipolatc  (Event*  e,  Rubbeiband*  nibbeiband,  int  et, 
boolean  constrain,  boolean  erase)  { 
rubbcrt>and->SctPainteKrasterxor); 
rubbeiband->SetCanvas(canvas); 

Listen(allEvents); 
while  (e.eventType  !«  et)  { 

if  (c.eventType  **  MotionEvent)  { 
iubbeiband->Track{e,x,  e.y); 

} 

Read(e); 
if  (constrain)  { 

page->Constrain(&x,  e.y); 

> 


Listen(ii^ut); 
if  (erase)  ( 

n]bberband->EraseO; 

) 

I 

//  Edit  lets  the  user  enter  text  into  the  drawing. 

void  DrawingViewrEdit  (Event*  e,  TextEdit*  textedit,  Graphic*  gs)  { 
StartText£diting(e,  textedit,  gs); 

textedit->G  rasp(e); 

Listen(allEvents); 

while  (textedit->Editing(e))  { 

Read(e); 


UnRead(e); 

Listen(input); 

EndTextEditingOi 

I 


//  DrawHandles  tells  all  the  Selections  to  draw  their  handles  unless 
//  they've  already  bctti  drawn. 

void  DrawingView:JDrawHandlcs  {)  { 

for  (sl->Hrst();  lsl->AtEndO;  sl->NcxtO)  I 

sl->GetCurO->GctSelectionO>DrawHandles(rasterxor,  canvas); 


\ 

U  RedrawHandles  tells  all  the  Selections  to  redraw  fljcir  handles 
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//  whether  or  not  theyVe  already  been  drawn. 


void  DrawingView::RcdrawHandlcs  0  I 

for  (8l->FirsiO:  lsl->AtEndO;  sl‘>NextO)  { 

sl->GetCur()->GctSclccti  on  0-^cdrawHandles(rastcntor,  canvas); 


} 

//  ErascHandlcs  tells  all  the  Selections  to  erase  their  handles  unless 
//  theyVe  already  been  erased. 

void  DrawingV^ewrdBraseHandles  0  I 
for  (sl->Hrst();  !sl->AtEndO;  sI->NextO)  { 

sl->GetCuK)->GctSelcctionO->EraseHandlcs(rasterxor,canvas); 

} 

1 

//  EraseExcessHandles  erases  the  excess  Selections'  handles  if  it 
//  doesn't  find  the  Selections  in  the  current  SelcctionList 

void  DrawingView;£raseExccssHandlcs  (SelcctionList*  ncwsl)  { 
for  {sl->Fiist();  !sl->AtEndO;  sl->NcxtO)  ( 

Selection*  oldsclection  *sl->GctCur()->GctSclectionO; 
if  (lnewsl->Find(oldsclcction))  { 

oldselection->EraseHandlcs(rasterxor,  canvas); 

) 


) 

//  ErascPickedHandles  erases  the  picked  Selection's  handles  if  it 
//  finds  the  picked  Selection  in  the  SelcctionList 

void  DrawingView:£rasePickedHandles  (Selection*  pick)  { 
if  (sl->Find(pidk))  ( 

si->GctCuK)'><5ctSclcctionO->ErascHandlcs(rastcrxor,canvas); 


) 

//  ErascPickedHandles  erases  the  picked  Selections*  handles  if  it 
//  finds  the  picked  Selections  in  the  SelcctionList. 

void  DrawingVicwidBrascPickedHandles  (SelcctionList*  pi)  { 
for  (pl->FirstO;  lpl->AtEnd();  pl->Ncxt())  { 

Selection*  pick  »  pl->GctCurO">GetSclcctionO; 
if  (sl->Find(pick))  { 

sl->GctCurO“>GctSclcctionO->EraseHandles(iastcrxor,  canvas); 


I 

1 

//  EraseUngraspedHandles  erases  all  of  the  handles  only  if  the 
//  SelcctionList  does  not  already  include  the  picked  Selection. 

void  DrawingView:£raseUngraspcdHandles  (Selection*  pick)  ( 
if  (!sN>Find(pick))  { 

EraseHandlesQ; 

I 

I 

//  RcsctAllHandlcs  resets  all  of  the  handles  because  the  Selections 
if  may  have  moved  out  from  under  their  handles. 

void  DrawingView::ResetAllHandles  0  ( 

PictSclcction*  picture  *  page->GctPictureO; 
for  (pictufe”>FirstO;  lpictuie->AtEndO;  picture*>Next())  { 
Selection*  s  ■*  picturc‘>GetCuiTentO; 
s->ResetHandlesO; 


I 

//  Added  adds  the  Selections  to  the  list  of  Selections  in  the  drawing 
//  to  be  drawn  for  the  first  time. 


void  DrawingView;:Addcd  ()  | 

for{sl->Fiist();  !sl->AtEndO;  sl->NcxtO)  { 
damagc->Addcd(sl->GctCur()*>GetSclcction()); 
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} 


//  Damaged  adds  the  areas  covered  by  the  selected  Selections 
//  (including  their  handles,  too)  to  the  list  of  damaged  areas  in  the 
//  drawing  to  be  repaired. 

void  DrawingView:  J)amaged  ()  { 

BoxObj  box; 

for  (sl->First();  !sl->AtEndO;  sl->NextO)  { 

sl->GetCu  r()- >GetSelecti  on  0'>fjetPaddedBox  (box); 
damage'>lncu  rfbo  x) ; 

I 

) 


//  R^ir  repairs  the  drawing’s  damaged  areas  and  then  redraws  the 
//  Sdections'  handles.  The  damaged  areas  must  have  included  all  the 
//  handles  for  RedrawHandles  to  work  correctly. 

void  DrawingViewnR^air  0  ( 
if  (damage->lncurTedO)  { 

damage->R^airO; 

RedrawHandlesO; 

I 

} 


//  Magnify  magnifies  the  given  area  to  fill  the  view. 

void  DrawingView::Magnify  (Coord  1,  Coord  b.  Coord  r,  Coord  t)  { 
Perspective  np; 
np  *  *GetPerspectiveO; 

Dp.curx  min(l,  r); 

np.cury  min(b,  t); 

np.curwidth  «  max(abs(r  •  1),  1); 
np.curhei^t «  max(abs(t  -  b),  1); 

Adjust(i^); 

) 


//  Reduce  reduces  the  drawing’s  magnification  by  a  factor  of  two. 

void  DrawingView  "Reduce  0  { 
SetMagnification(GetMagnificationO  /  2); 

I 

//  Enlarge  enlarges  the  drawing's  magnification  by  a  factor  of  two. 

void  DrawingVicwrdEnlargc  0  { 

SetMagnification(2  *  GetK^gnification()); 

I 


//  NormalSize  resets  the  drawing's  magnification. 

void  Drawing^ew:  J«formalSize  Q  { 
SetMagnification(l.); 

} 


//  ReduceToFit  reduces  the  drawing’s  magnification  enough  to  fit  all 
//  of  the  drawing  in  the  window. 

void  DrawingView  "ReduceToFit  ()  | 

Perspective  np; 
np  *  •GctfHsrspcctiveO; 
np.curx  ■*  np.xO; 
np.cury  ■  np.yO; 
np.curwidth  >■  np.width; 
np.curheight  ^  npiieight; 

Adjust(np); 

} 

//  CcnterPage  recenteis  the  drawing  over  the  window's  center. 

void  DrawingView  "CcnterPage  0  I 
register  Perspective*  p  *  perspective; 

Coord  left,  bottom,  right,  top; 

page->Center(mag,  xmax/2,  ymax^); 
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GetGraphicBox(lefL,  bottom,  right,  top); 

xO-left; 

yO  bottom; 

p->width  *  right  -  left  +  2*pad; 

p->hei^t « top  -  bottom  +  2*pad; 

p->curwidth  =  xmax  +  1; 

p->curhcight  -  ymax  +  1 ; 

p->curx  =  (p->width  -  p->curwidth)/2; 

p“>cury  «  ^->hei^l  -  p->curficight)/2; 

p->Updatc(); 

Draw(); 

) 

//  Rcconfig  gives  output  the  page’s  background  color,  creates  a 
//  painter  for  drawing  the  lubberbands,  and  asks  for  the  smallest 
//  possible  canvas  if  the  user  wants  a  small  window. 

void  DrawingViewirReconfig  ()  { 

Color*  bg  *  page*>GctBackgiDundColorOi 
if  (output->GetBgColoi<)  !«  bg)  { 

Painter*  copy  *  new  Painter(output); 
copy->RcfcrcnccO; 

Unref(output); 
output «  copy; 

output->SctCoiois(output->GctFgColorO,  bg); 


if  (rasterxor  «  nil)  ( 

rasterxor  *  new  Painterfoutput); 
rasterxor->RcfcrenccO; 

I 

if  (strcmp(GctAttributeC'smair'),  ”lnic")  ■=  0)  { 
shape-’>width  «  0; 
shape'>height  ■»  0; 

} 

GraphicB  lock :  iReconfigO; 

) 


//  Redraw  draws  a  rectangular  subpart  of  the  view. 

void  Drawing^^cw::Rcdraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 
if  (graphic  I*  nil)  { 

GraphicBIock:;RedrawO.  b,  r,  t); 
rasterxor<>Clip(canvas,  1,  b,  r,  t); 
for  (sl->]RrstO;  !sl->AtEndO;  s1->Ncxt0)  ( 

Selection*  selection ««  sl->GctCurO>GctSelcctionO; 
selection->RedrawUnclippedHandles(rasterxor,  canvas); 

) 

^astcrxo^>Noai  pO; 

RedrawTextEditorO; 

I 

) 

//  Resize  recreates  damage  in  case  canvas  changed  its  value. 

void  DrawingViewrtResize  0  ( 

GraphicBlockirResizeO; 
delete  damage; 

damage  v  new  Damagefcanvas,  output,  graphic); 

ResetAllHandlesQ; 

) 

If  LimitMagnification  limits  the  factor  by  which  DrawingView  may  scale 
//  the  view  of  the  drawing  to  avoid  torturing  the  X  server.  In 
//  addition,  LimitMagnification  updates  State’s  stored  magnification. 

//  Alternatively,  Slate  could  have  attached  itself  to  DrawingView's 
//  perspective  if  it  was  an  Intcractor  like  MagnifView. 

float  DrawingViewriimitMagnification  (float  desired)  | 
const  float  MIN  «  1./8.; 
const  float  MAX  » 16.; 
if  (desired  <  MIN)  { 

desired  «  MIN; 

)  else  if  (desired  >  MAX)  { 

desired  as  MAX; 

I 
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statc->SetMagnif (dttjired) ; 
return  desired; 

//  StaitTcxtEditing  stores  the  tcxtcdit  and  draws  it  on  the  canvas. 

void  DrawingVicw::StartTextEditing  ( 

Evcnt&  c,  TextEdit*  tcxtcdit^  Graphic*  gs 

)l  .  . 

DrawingView::lcxtcdit  **  textedit; 

Drawing^ew;:gs  *  gs; 


page->Constrain(e.x,  e.y); 
if  (gs  1*  nil)  { 

state'>SctTextGS(gs»  output); 

1  else  { 


state>>SetTcxtGS(e.x,  c.y,  omput); 


I 

tcxtedit->Rcdraw( 

5tate->GctTcxtPaintcr0t  canvas.  state->GctlineHt().  false 


//  EndTextEditing  marks  the  area  damaged  by  the  textedit  for  later 
//  repair  and  forgets  it  has  a  textedit 


void  DrawingN^ew:£ndTextEditing  0  I 
Coord  xmin,  ymin,  xmax,  ymax; 
textedit->Bounds(xmin.  ymin.  xmax.  ymax); 
damage->lncur(xmin.  ymin,  xmax.  ymax); 
gs-nil; 
textedit  B  nil; 

I 

//  RedrawTextEdit  redraws  the  textedit  on  the  canvas  after  a  Resize  or 
//  other  asynchronous  window  event 


void  Drawing^ewriRcdrawTexffiditor  0  { 
if  (textedit  1*  nil)  | 

if  (gs  I*  nil)  { 

state*>SetTextGS(gs.  outptd); 

I 

textedit>>Redraw( 

stat©'>GetTcxtPainterOt  canvas.  statc->GctLincHt(),  true 


1 


) 


): 


editor Ji 


tifiidef  editor_h 
#dehne  editor_h 

#include  ^terViews/defe  Ji> 
#include  «^terViews/Std/stieamJi> 

//  Declare  imported  types. 

class  CTiangeNode; 
class  Chooser; 
class  Confirmer, 
class  Drawing; 
class  DrawingView; 
class  Event 
class  Selector; 
class  History; 
class  IBrush; 
class  IC^Ior, 
class  EPbnt 
class  IPattom; 
class  Interactor, 
class  Messager. 
class  Namer 
class  Painter; 
class  RubberEllipse; 
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class  RubbcrLinc; 
class  RubberRect; 
class  State; 
class  Tcxils; 

//  An  Editor  lets  the  user  perform  a  drawing  or  editing  operation  on 
//  a  Drawing. 

class  Editor  ( 
public: 

Editorflntcractor*); 

-EditoK); 

void  SetDrawingCDrawing*); 

void  SctDrawingVicw(DrawingVicw*); 

void  SetState(Statc*); 

void  SctTools(Tools*); 

void  SetDirectory(char*,  diar*,  diar*); 

void  HandleSelect(Evait&); 

void  HandleMove(Event&); 

void  HandleScalc^ventA); 

void  HandlcModify(Evcnt&); 

void  HandleMagnify(Event&); 

void  HandlcDccomposc(Evcnt&); 

void  HandleText(Eveat&); 

void  HandlcLabcI(Evcnt&); 

void  HandlcMET^vcntA,  char  ♦  units); 

void  Handlelf  (Evcnt&); 

void  HandleLatcncy(Evcnt& ,  char  *  units); 
void  HandleBSpline(Evmt&); 
void  HandleEllipsc(Evcnt&): 
void  HandleRe<^(Event&); 

f*  Start  of  Commented  Out  Code  *♦♦♦♦ 
void  HandlcStretch(Event&); 
void  HandleRotate(Event&); 
void  HandleMultiLine(Event&); 
void  HandlePolygon(Event&); 
void  HandleClosedBSpline(Event&); 

End  of  Commented  Out  Code  •/ 

void  New(); 

void  RevertO; 

void  Open(const  char*); 

void  OpenO; 

void  SaveO; 

void  CommitO; 

void  SavcAsQ; 

void  PrintO; 

void  Quit(Event&); 

void  CheckpointO; 

void  Undo(); 
void  RedoQ; 
void  Cut(); 
void  CopyO; 
void  PasteO; 
void  DuplicateO; 
void  DeleteO; 
void  SdectAllQ: 

void  SetBrushfEBrush*); 
void  SclFgColorflColor*); 
void  SctBgColorhColor*); 
void  SctFontflFbnt*); 
void  SetPattemflPattem*); 

void  AlignLeftSidesQ; 
void  AlignRightSidesO; 
void  AlignBottomsO; 
void  AiignTopsQ; 
void  AlignVcrtCentersO; 
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void  AlignHorizCcntcrsO; 
void  AlignCcntcrsO; 
void  AlignLcftToRightO; 
void  AlignRightToLcftO; 
void  AlignBottomToTopO; 
void  AlignTopToBottomO; 
void  AlignToGridO; 

void  ReduccO; 

void  EnlaigeO; 

void  RcduccToFitO; 

void  NonnalSizcO; 

void  CentcrPagcO; 

void  RcdrawPagcO; 

void  GriddingOnOffO; 

void  Grid^%iblcInvisiblcO; 

void  GridSpadngO; 

void  OricntationO; 

void  ShowVcisionO; 

void  RcsetMcssagc(const  char*); 

void  TooISct(char); 

protected: 

const  char*  MakeHlcnamc(const  char*); 
const  char*  MakcSpccRJcnamc(const  char*); 
void  Do(ChangeNodc*); 

void  InputVertices(Evcnt&,  Coord*&,  Cooid*&,  int&); 

RubbcrLinc*  NewRiibbed^ineOrAxisOEvent&); 

RubberEllipsc*  NcwRubbcrEUipscOrCifc!c(Evcnt&); 

RubbcrRect*  NcwRubbcrRcctOrSquare(Event&); 
boolean  OfferToSave(); 
void  Reset(const  char*); 

History*  history;  //  changes  made  to  drawing 

Messager*  numterofdialog;  //  displays  how  many  graphics  the  drawing  has 

Selecter*  opcndialog;  //  prompts  for  name  of  a  drawing  to  open 

Confinner*  ovcrwritedialog;//  confinns  whether  to  overwrite  a  file 

Namcr*  precmovcdialog;  //  prompts  for  X  and  Y  movement  in  points 

Namer*  precrotdialog;  //  prompts  for  rotation  in  degrees 

Namer*  precscaledialog;  //  prompts  for  X  and  Y  scaling 

Namer*  printdialog;  H  prompts  for  prmt  command 

Messager*  readonlydialog;  //  tells  user  drawing  is  readonly 

Confirmer*  rcvcrtdialog;  //  confirms  whether  to  revert  froin  a  file 

Selecter*  savcasdialog;  //  prompts  for  name  to  save  drawing  as 

Confirmer*  savccurdialog;  //  confirms  whether  to  save  current  drawing 

Namer*  spacingdialog;  //  prompts  for  grid  spacing  in  points 

Messager*  veisiondialog;  //  displays  idraw's  veision  level  and  author 

Chooser*  decomposedialog;  //  displays  decomposition  choices 

Messager*  nolabeldialog;  //  tells  user  that  cannot  decompose  because 

//  operator  chosoi  has  no  labd 


Drawing*  drawing; 

DrawingView*  drawingview;  //  displays  drawing 
State*  stale; 


//  performs  operations  on  drawing 

//stores  Graphic  and  nonGraphic  attributes 


char*  dir,  //  directory  where  prototypes  are  stored 

char*  ddbCmd;  //  name  of  program  to  update  the  design_databasc 


char*  dcsign^databasc;  //  name  of  the  desip  database  to  load. 

Interactor*  inten  //  store  the  interactor  (idraw)  for  editor 

//  in  order  to  change  cursor  for  Annotate 


Tools  *10015; 


#cndif 

cditor.c 

#inciude  "dfdclasscsJ)" 
#include  "dfd_dcfe  Ji" 
#include  "dialogbox.h" 
#include  "drawing.h" 
#include  "drawingvicwJi" 
#include  “editorJi" 
tinclude  “historyJi*’ 
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#indude  "idrawJi" 

#includc  “istringJi" 

#includc  "listchangcJi" 

#include  "listseicctn.h’' 
finclude  "mapipainth" 

#include  "psdJlists.h" 

#inc)ude  "psdlcompJi" 

#include  "robbandsJi" 

#include  "selection,  h" 

#include  "slcUipsesii" 

#mclude  "sliinesJi*' 

#include  "slpoIygonsJi" 

#include  ‘'slsplincs.h" 

#include  "sltcxth" 

#include  "stateii" 

#include  "textedith" 

#include  "tools.h" 

#include  "version.h" 

#include  "scIcctcrJi" 

#define  _POSIX_SOURCE 
tinclude  <IntcrVicws/Std/mathJi> 

#include  ^terVicws/cursor.h> 

#includc  <IntcrVicws/cvcnth> 

#include  <IntcrVicwsAransfonnerh> 

#include  <JntcrVicws/Graphic/util  Ji> 
tinclude  <sys/param.h> 
tinclude  <bstring.h> 
tinclude  <Inter^cws/Std/Btdio  Ji> 
tinclude  <stnngii> 

extern  "C"  { 
int  forkO; 

int  execlp(char*, ... ); 
int  exit(int); 
int  wait(long*); 
int  8ystem(const  char*); 

) 

//  used  to  find  all  prototypes  in  directory  defined  in  "sclecter.c" 

void  find_piototype_namcs(char**,  char*,  const  char*); 

//  Editor  creates  its  history  and  dialog  boxes. 

Editon'JEditor  (Interactor*  i)  { 
history  ■«  new  History(i); 
numberofdialog  *ncw  Messager(i); 

opendialog  ■»  new  Selecter(i,  "Select  prototype  to  edit;".  Center); 

overwritedialog*  new  Confiimer(i,  "already  exists;  overwrite?"); 

prccmovcdialog  -new  Namei<i,"Entcr  X  and  Y  movement  in  printer's  points:"); 

precrotdialog  ■  new  Namer(i,  "Enter  rotation  in  degrees:"); 

precscaledialog  *  new  Namer(i,  "Enter  X  and  Y  scaling:"); 

printdialog  *  new  Namer(i,  "Enter  print  command:"); 

leadonlydialog  «  new  Messagerii,  "Drawing  is  readonly."); 

leveitdialog  *  new  Confirmer<i,  "Really  revert  to  original?"); 

saveasdialog  *  new  Selecter(i,  "Select  prototype  to  save:".  Center); 

savecurdialog  »  new  Confirmeifi,  "Save  current  drawing?"); 

spacingdialog  ■  new  Namer(i,  "Enter  grid  spacing  in  printer's  points:"); 

vcrsiondialog  *  new  MessagcKi.  version); 

decomposedialog  »  new  Chooser(i,  "Choose  decomposititm  type:", 

"Graphic  Editor", "  Ada  ", 

"  Search  "); 
nolabeldialog  « 

new  MessagcKi.  "Operator  has  no  label,  cannot  decompose."); 

drawing  «  nil; 
drawingview  «  nil; 
state  «  nil; 
inter  » i; 

I 

//  •-Editor  frees  storage  allocated  for  its  history  and  dialog  boxes. 

Editor::-Editor  ()  | 
delete  history; 
delete  numberofdialog; 
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delete  opendialog; 
delete  overwritedialog; 
delete  prccmovedialog; 
delete  precrotdialog; 
delete  precscaledialog; 
delete  printdialog; 
delete  leadonlycbalog; 
delete  revcitdialog; 
delete  saveasdialog; 
delete  savecurdialog; 
delete  spacingdialog; 
delete  versiondialog; 

I 


//  Define  access  functions  to  set  members’  values.  Only  Idiaw  sets 

//  their  values. 

N 

void  Editor;:SetDiawing  (Drawing*  d)  | 
drawing  >=  d; 

} 

void  Editor: :SetDrawingView  (DrawingView*  dv)  { 
drawingview  =  dv; 

I 

void  Editor: iSetStatc  (State*  s)  { 
state  s:s; 

) 


void  Editor:  :SetTools  fTools*  i)  { 
tools  s  i; 

I 

//  set  the  directory  of  prototytpes  to  the  given  character  string 
ft  Changed  1/31/91 
//  By  Patrick  D.  Barnes 

//  Description:  Sets  prototype  directory,  design_databasc,  and  dbCmd 
void  Editor:  :SctDircctory(char*  d,  char*  db,  char*  c)  { 
dir «  new  char  [MAXPATHLEN  +1]; 
design_databasc  *  new  char[strlen(db)]; 
ddbCmd  =  new  char[strlcn(c)]; 
strcpy(dir,d); 
strcat(dir, "/"); 
strepy  (dcsign_databasc,db) ; 

5trcpy(ddbCmd,c); 

} 


//  HandleSelect  lets  the  user  pick  a  Selection  if  one’s  under  the 
//  mouse,  otherwise  it  lets  the  user  manipulate  a  rubber  rectangle  to 
//  enclose  the  Selection  he  wants  to  pick.  HandleSelect  clears  all 
//  previous  Selections  unless  the  user  holds  down  the  shift  key  to 
//  extend  the  Selections  being  made. 

void  Editor: iHandicSelecl  (Evcnt&.  e)  | 

Selection*  pick  =  drawing->PickSclectionInteisecting(e.x,  c.y); 
if  (!c.shift)  {  //  replacing  previous  Selections 
d  ra  wingview->£jaseHandlesO: 
if  (pick  !■*  nil)  { 
drawing’>Se]ect(pick); 

I  else  I 

RubberRect*  rubberrcct® 

new  RubbcrRcct(nil,  nil,  e.x,  c.y,  c.x,  c.y): 

drawingview->Manipulate(c,  lubbeirect,  UpEvent,  false); 

Coord  I,  b,  r,  t; 

nibbeiTect->GctCurrent(l,  b,  r,  t); 
delete  robbcrrcct; 

SelectionList*  picklist?=  drawing->PickSclectionsWithinG,  b,  r,  t); 
dra  wing->S  elect(picklist); 
delete  picklist; 

1 

1  else  I  //  extending  Selections 
if  (pick  !“  nil)  { 

dra  wingvicw->ErascPickcdHandlcs(pick ) ; 
dra  wing->Extend(pi  ck ) ; 

1  else  ( 


RubbcrRcct*  rubbcnrcct « 

new  RubbcrRect{iiil»  nil,  e.x,  e.y,  c.x,  e.y); 

drawingvicw->Manipulatc(c,  nibbcrrect,  UpEvcnt,  false); 

Coord  1,  b,  r,  t; 

njbbcrrect->GctCufTcnt(l,  b,  r,  t); 
delete  rubberreci; 

ScicctionList*  picklists:  drawing->PickSelcctionsWithm(l,  b,  r,  t); 
drawingvicw->ErascPickcdHandlcs(picklist); 
drawing->Extcnd(pi  delist); 
delete  picklist; 


I 

dra  wingvicw->DrawHandles() ; 

) 

//  HandleMove  lets  the  user  manipulate  a  sliding  rectangle  enclosing 
//  the  Selections  and  moves  them  the  same  way  when  the  user  releases 
//  the  button. 

void  Editor:  JIandleMove  (Event&  e)  { 

Selection*  pick  *  drawing->PickSelcctionIntcisecting(e.x,  e.y); 
if  (pick  I*  nil)  { 

diawingvicw->ErascUngraspcdHandlcs(pick); 

dra  wing->G  rasp  (pick) ; 
drawingvicw->DrawHandles(); 

Coord  1,  b,  r,  t; 
drawing->GetBox(l,  b,  r,  t); 
state->Constrain(e.x,  e.y); 

SlidingRect*  slidingrect  * 
new  SlidingRect(nil,  nil,  1,  b,  r,  I,  e.x,  e.y); 
drawingvicw->Manipulatc(c,  slidingrect,  UpEvcnt); 

Coord  nl,  nb,  nr,  nt; 
siidingrect->GctCurrcnt(nl,  nb,  nr,  nt); 
delete  sHdingrect; 

if(nl  !*lllnb!*b){ 
float  xO,  yO,  xl,yl; 

Transformer  t; 
dra  wing“>G  ctPictu  rcTT{t); 
tJnvTransfonn(floatO),  float{b),  xO,  yO); 
tJnvTransfonn(float(nI),  float(nb),  xl,  yl); 

Do(ncw  MovcChange(drawing,  drawingview,  xl  -  xO,  yl  -  yO)); 


} 

) 

//  HandleScale  lets  the  user  manipulate  a  scaling  rectangle  enclosing 
//  the  picked  Selection  and  scales  the  Selections  to  the  new  scale 
//  when  the  user  releases  the  button. 

void  Editor  JIandleScalc  (Evciit&  c)  ( 

Selection*  pick  «  drawing->PickSclectionIntcreccting(e.x,  e,y); 
if  (pick  1=  nil)  i 

drawingvicw->ErascUngTaspcdHandlcs(pick); 
d  ra  wing“>Grasp(pick); 
drawingvicw->DrawHandlcs(); 

float  1,  b,  r,  t; 

pick'>GetBounds(l,  b,  r,  t); 
float  cx,  cy; 

pid5:->GctCcntcKc3t»  cy); 

ScalingRcct*  scalingrect  ■ 

new  ScalingRect(nil,  nil,  roundO),  round  (b),  round(r),  round(t), 
round(cx),  round(cy)); 

drawingview->Manipulate(c,  scalingrect,  UpEvent); 
float  scale  *  scalingrect->CurTcntScalingO; 
delete  scalingrect; 

if  (scale !»  0)  { 

Do(ncw  ScalcChangc(drawing,  drawingview,  scale,  scale)); 

} 

I 
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//  HandleModify  lets  the  user  modify  an  already  existing  Selection 
//  and  r^laccs  the  Selection  with  the  modified  Selection.  Text 
//  Selections  ”modify*‘  themselves  using  different  code  below. 

void  Editor:  JlandleModify  (Evcnt&  e)  | 

Selection*  pick  *  drawing->PickSelectionShapcdBy(c.x,  c.y); 
if  (pick  !=nil)  | 

d  ra  wingview->ErascHandlesO; 
d  ra  wing'>Selcct(pick); 
d  ra  wingview->I>ra  wHandlesO; 

Selection*  modi  fiec^ick  =  nil; 

Classld  cid  *  pick-><5ctClassIdO; 

if  (cid  -=  LABEL_OP  II  cid  LABEL_DF  II  cid  COMMENT  II 
cid  —  LAT_DF  II  cid  MET^OP  It  cid  —  LABEL^SL)  { 
int  len; 

const  char*  text  ■  ((TcxtSelection*)  pick )->GctOriginal (len); 
TextEdit*  textedit  *  new  TcxtEdit(tcxt,  len); 
drawingview->EraseHandles  0; 
drawingview->Edit(e,  textedit,  pick); 
text  =  tcxtedit->GctTextOcn); 

modifiedpick  *  new  TcxtSeIection(cid,  text,  len,  pick); 
delete  textedit; 

I 

else  { 

Rubberband*  shape  *  pick->CrcateShapc(c.x,  e.y); 
drawin^ew->Manipulate(c,  shape,  UpEvent); 
modifiedpick  «  pick->GctReshapedCopyO; 

} 

if  (modifiedpick)  { 

Do(ncw  Rq)laccChange(drawing,  drawingview,  pick,  modifiet^ick)); 
drawingvicw->DTawO; 

} 

I 

} 

//  HandleMagnify  lets  the  user  manipulate  a  robber  rectangle  and 
//  expands  the  given  area  to  fill  the  view. 

void  Editor  JJandleMagnify  (EventA  e)  ( 

RubbcrRect*  robberrect  *  NewRubbcrRectOrSquare(e); 
drawingvicw->Manipulatc(e,  robbcirect,  UpEvent,  false); 

Coord  fx,  fy; 

nibbcrrect->GetCurrent(fx,  fy,  c.x,  c.y); 
delete  robberrect; 

drawingvicw->Magnify(fx,  fy,  e.x,  e.y); 


//  HandlcDecompose  gives  the  user  of  decomposition  types  and  then 
//  processes  the  choice 

void  Editor:  ilandlcDcoomposc(Evcnt&  c)  { 

Selection*  pick  «  drawing->PickSclcctionIntcisecting(c.x,  e.y); 
drawingview->£raseHandles(); 
if  (pick  I«  nil  &&  pick->GctQassId()  **  LABEL_OP) 
pick  =  pick->GetOwnciO->GctShapc(); 
if  (pick  !=  nil  &&  pick->GctQassIdO  «  OPERATOR)  { 
drawing->Sclect(pidc); 
drawingvicw->I>rawHandlesO; 
char*  label  pidc->GetOwnerO>Get\felidLabclStringO; 
if  (label  «■*  nil)  { 
nolabeldialog>>I>iqplay(); 

)  else  { 

char  result «  decomp<»cdialog->ChooseO; 

// C^it  if  cancel 

if  (result « ’c*)  return; 

imer->SetCursor(hou  fglass); 

SaveO; 

//  Constroct  the  child  component  name 

const  char*  prototypc_namc  ■  8tatc->GexDrawingName0; 
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char*  fixcd_label  =  RcmovcBadCharsOabcl); 

char*  ncw_prot_namc  «  new  char[strlcn(pn)iotype_namc) 

+  strlcn(fixcd_labcl)  +  2]; 
strcpy(ncw_prot_nainc,prototypc_namc); 

strcat(ncw_prot_iianie, 

strcat(new_prot_namc»fix  ed_!abcl); 

char  cmd[256]; 
char  dpopts[  128]; 

sprintf(dpopts,"-d  %s  -p  9E«’‘,dir,  ncw_prot_namc); 

int  code; 
long  status; 

if  (result  ■=  T)  { 

//  first  button  pushed,  decompose  wth  graphic  editor 
if(forkO-“0)( 

if  (design_database[0]  1*=  NULL) 
code  =  execlpC'a.out",  "a.out", 

*'-d",  dir,  "-p",  new_j)rot_name, 

"-c",  ddbCmd,  "-n",  dcsign_daubasc, 

"-geometry”,  “4450-200",  0); 
else 

code  =  excclpC'a.out",  "a.out", 

"-d",  dir,  new_4)rotjiame, 

"-c".  ddbCmd, 

"-geometry",  "4450-200",  0); 
exit(code); 

} 

wait(&status); 

drawing->TagOpcrator((Vertcx  *)pick->GetOwncr0»”*")j 
SaveO; 

)  else  { 

//  fprintf(stdcrr,  "second  or  third  button  choscn.Nn"); 

//  write  PSDL  IMP  file:  implementation  is  Ada 


char*  filename  *s  new  char[strlen(dir)  4  strlen(new_prot_namc) 
4lMP_EXT_LEN4l]; 
strcpy  (fi  lename,dir); 
strcat(fil  cnamc,ncw  j)iot_name); 
strcat(fil  enamc  J[MP_PSDL JEXT); 

FILE*  fptr  «  fopen(filename,  "w"); 
fpiintf(fjptr,  "%s%sVi",  IMP_ADAJTKN,  label); 
fprintfffptr,  "%s",  ENDJTKN); 
fcloseffjptr); 
delete  [j  filename; 

if  (result  ’s')  { 

//  suit  Ada  synux  editor 

filename  »  new  char{strlen(dir)  4  strlcn(new_prot_name)  4  3]; 

strcpy(filename,dir); 

strcat(filcname4»ew_prot_name); 

strcat(filename,".a"); 

if  (!drawing->Exists(filcnamc))  | 

//  file  does  not  exist  so  create  new  template 
FILE*  fptr  w  fopen(filcname,  "w"); 
drawing->GenerateAda(fptr, (Vertex  *)pick->GetOwnei0); 
fclosc(fptr); 

) 

delete  []  filename; 

sprintf(cmd,"ada_synUx_editor.script  %s",dpopts); 
int  code ««  system(cmd); 

}  else  { 

//search  for  reusable  components 
sprintf(cmd,"softwarc_ba».sciipt  %s",dpopts); 
int  code  *  systcm(cmd); 


delete  new_prot_namc; 
inter->SetCursor(defau  ItCurso  r); 
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} 


} 

) 

//  HandlcTwt  IcU  the  user  type  some  text  and  creates  a  new 
//  TcxtSelection  when  the  user  finishes  typing  the  text  It  must 
//  clear  the  selection  list  because  Drawing  View  will  redraw  the 
//  handles  obscured  by  the  TextEdit  if  the  list's  not  empty. 

void  Editor:  :HandlcText  (EvcntA  c)  | 
drawingview*>ErascHandles(); 
drawing->Clcar(); 

TextEdit*  textcdit  =  new  TextEdit; 
drawingview>>Edit(e,  textcdit); 
int  len; 

const  char*  text  =  tcxtcdit->GetTcxt(len); 
ifacn>0)i 

TextSelection  *ts  =  new  TcxtS  election  (COMMENT,  text, 
len,  statc->GctTextGS()); 
drawing->CommcntAppcnd(ts); 
drawing->Select(ts); 

Do(new  AddChangc(drawing,  drawingview)); 

I 

delete  textcdit; 

I 

//  HandlcLabcl  lets  the  user  pick  a  Selection  and  adds  text  in  that  selection. 
//  The  text  will  then  be  centered  on  the  selection. 

void  Editor:  JlandleLabel  {Event&  c)  { 

Selection*  pick  *  drawing->PickSclcctionIntcrsecting(e.x,  e.y); 
drawingvicw»>ErascHandlcs(); 

if  (pick)  { 

Classid  cid_pick  ■=  pick->GctQassIdO; 

if  (K  (cid>ck  —  OPERATOR)  II  (cid>ck  —  TERMINATOR)  11 
(cid_pick  —  DATAFLOW^SPUNE)  II  (cid_pick  —  SEIELOOP))) 
return; 

drawing->Select(pick); 

drawingview->DrawHandlesO; 

//  can  only  add  label  to  one  selection  at  a  time 

if  {drawing->GctNumbcrOfGraphics()  —  1)  { 

TextEdit*  textcdit  *  new  TextEdit; 
drawingview->£(ht(e,  textedit); 
char  *tcxt  *  tcxtedit->GetStringO; 
if  (strlen(text)  >  0)  | 

//  dctemiinc  the  type  of  label  that  we  arc  using 

Classid  cid_tcxt; 

TextSelection  *lat »  0; 

if  (cid  j>ick  —  OPERATOR  II  cid j>ick  —  TERMINATOR) 
cid_iext »  LABEL_OP; 
else  if  (dd  jjick  «=  D ATAFLOW_SPLINE)  { 
cid_lext  *  LABELJDF; 

lat  =  ((Edge  *)  pick->GctOwncr0)->GetLatency(); 

I 

else  if  (dd_pick  —  SELFLOOP) 
dd_tcxt  ssLABEL^SL; 

TextSelection*  ts  =  new  TcxtSclcction(dd_tcxt,  text,  strlcn(tcxt), 
state->GctTextGS  0); 

//  add  label  to  operator  list 

pick->GetOwner<)->S  etLabcl  (ts); 
d  ra  wing‘>Selcct(ts) ; 

Do(new  AddChangc(drawing,  drawingview)); 

//  center  label  to  selection 
drawing*>Sclcct(pick); 
dra  win  g->Extcnd(ts); 

AlignCeniersO; 
if  (lat)  I 

dra  wing->S  elect(ts) ; 
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drawing->Ex  tend  Oat); 
AlignCentcrsO; 
AlignTopToBottom  0; 

} 

d  13  wingview->EraseHandl  es(); 
dTawing->Qcar(); 

I 

delete  textedit; 

I 

} 


//  HandleMET  letes  the  user  select  an  operator,  add  the  noaxunum  execution 
//  time  associated  with  that  operator.  This  MET  is  place  on  top  of  the 
//  operator. 

void  Editor; :HandleMET  (Event&  e,  char  *units  )  { 

Selection*  pick  »  drawing->PickSe}ectionlntersecting(e.x,  e.y); 

drawingview->EraseHandlesO; 

if  (pick  !*  nil)  | 

if  (pick->GctClassId() LABEL.OP) 
pick  *  pick->GctC)wnci()->GctShapeO; 

//  can  only  add  the  MET  to  an  operator 

if  (pick->GctClassIdO  *=  OPERATOR)  ( 
drawing>>Select(pick); 
drawingview->DrawHandlesO; 

TextEdit*  textedit  v  new  Text^it; 
drawingview->£dit(e,  textedit); 
char  *orig  »=  textedit->GetStringO; 
if  (strien(orig)  >  0)  { 

char  *iext  =  new  char [strlen(o rig)  +  strlen(units)  +  2]; 

strcpy(text,oiig); 

streat  (text,  units); 

TextSelection*  ts  t*  new  TcxtSclcction(MET_OP,  text,  striai(text), 
state>>GetTextGSO) ; 

//  add  MET  to  operator  list 

((Operator  •)  pick->GetOwner0)->SetMET(ts); 
dra  wing->Select(ts) ; 

Do(new  AddChange(d  rawing,  drawingview)); 

//  place  MET  on  top  of  operator 
drawing->Select(pick); 
drawing->Exteod(ls); 

AlignCenteisO; 

AlignB  ottomToTopO ; 
drawingview->EraseHandles(); 
d  ra  wing->QcaK); 

1 

delete  textedit; 

I 

1 

1 


// Adding  the  TRIGGER  IF  condition. 

// 

void  EditonTIandlelf  (Event&  e )  ( 

Selection*  pick  »  drawing->PickSelectionIntefsecting(e.x,  e.y); 
drawingview->ErascHandlesO; 

if  (pick  )«  nil)  ( 

if  (pick->GctClassId()  —  LABEL^OP) 
pick  «=  pick->GctOwnCT0->GctShapc(); 

//  can  only  add  theTrigger_If  to  an  constraints 

if  (pick->GetClassIdO  OPERATOR)  { 
drawing->Select(pidk); 
drawingview>>Di3wHandles(); 

TextEdit*  textedit  *  new  TextEdit; 
drawingvicw->Edit(e,  textedit); 
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char  *text  =  tcxtcdit->GctString(); 


if  (stricn(tcxt)  >0)  { 

Texts  election*  ts  »  new  TextSelection(TRIG_IF_CONS,  text,  strlen(tcxt), 
stat©->GetTextGS()) ; 

//  add  TRIGGER_IF  to  constraints  list 

drawing‘>TriggcrAppend(ts,  (EllipscSelection*)  pick); 
drawing->Sclcct(ts); 

Do(ncw  AddChangc(drawing,  drawingview)); 


//  place  trigger  condition  on  bottom  of  operator 
d  ra  wing->Sclect(pick); 
drawmg>>Hxtend(ts); 

AlignCenteisO; 

AlignTopToBottomO; 

drawingvicw->EraseHandles(); 

drawing->CIeaK); 


} 

delete  textedit; 

I 

I 

} 


//  HandleLatcncy  Ictes  the  user  select  a  data  flow,  add  the  latency 
//  associated  with  that  daU  flow.  Hiis  latency  is  placed  on  top  of  the 
//  data  flow. 

void  EditorriHandleLatency  {Event&  e,  char  *  units  )  { 

Selection*  pick  =  drawing->PickSclcctionIntcrsccting(c.x,  e.y); 

drawingview->£raseHandlesO; 

if  (pick  I*  nil)  { 

if  (pick->GctClassIdO  *=  LABELJDF) 
pick  «  pick->GctOwncr()“>GctShape(); 

//  can  only  add  the  Latency  to  stream 

if  (pick->GctClassIdO  *=  DATAFLOW_SPLINE)  { 

Selection  *oldpick  «  pick; 

Selection  *1  *  pick->GetOwncrO->GctLabel(); 
pick  ■:  1  ?  1 :  pick; 
drawing->Select(oli%ick); 
drawingview->DrawHandlesO; 

TextEdit*  textedit »  new  TextEdit; 
drawingview->Edit(c,  textedit); 
char  *orig  *=  textedit>>GetStringO; 
if  (stricn(orig)  >  0)  | 

char  *text «  new  char[strlai(orig)  +  strlen(units)  +  2]; 

strcpy(text,orig); 

streat  (text,  units); 

TextSelection*  ts  «  new  TextSe!ection(LAT_DF.  text,  strlen(text), 
state->GetTextGSO) ; 

//  add  latency  to  operator  list 

({Edge  *)  pick->GctOwncr())->SctLatency(ts); 
drawing->Select(ts); 

Do(new  AddChange(d  rawing,  drawingview)); 

//  place  Latency  on  top  of  data  flow 

drawing->Sclcct(pick); 
diBwing->£xteod(ts) ; 

AlignCentcrsO; 
if  (pick  !«  oldpick) 

AlignTopToBottom  0; 
dra  wingview<>EraseHandles  0; 
d  ra  wing->ClcarO; 

I 

delete  textedit; 

I 

} 
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//  HandleBSplinc  lets  the  user  draw  a  series  of  connected  lines  and 
//  creates  a  BSplincSelection  when  the  user  presses  the  middle  button- 

void  Editor-JHandleBSplinc  (Event&  e)  { 

Coord*  x; 

Coord*  y; 
intn; 

drawingview->ErascHandles(); 

InputVerticcs(e,  x,  y,  n); 

if  (n  !*  2  M  xlO]  !*  x{l]  II  ylO]  1-  ylU)  I 

//  determine  which  operator  the  ^line  is  attached  to  and  recompute 
//  the  spline's  endpoints  to  be  the  intersection  of  the  operator  and 
//  the  spline 

Vertex*  csO; 

Vertex*  esn; 

csO  *  drawing->SctEndptsInOperator(x[0],y[0],x[l]ty[l])» 

esn  »  drawing->SetEndptslnOpcrator(x[n-l].yln-l]^ln-2].y[n-2]); 

if  (esO  !«  nil  II  esn  I«nii)  { 


//  determine  type  of  spline 

IBrush  *oldBnJsh  »  statc->GetBrushO; 

MapIBrosh  ♦mb  *  stote->GctMapIBiushO; 

if  (csO  *=  esn) 

staie->SetBiush(mb->FindOrAppmd(0,0xfflf4  »04)); 

//  use  the  arrowhead's  pattern  to  draw  the  line 

IPattem*  temp  *  5tate->GetPattemO; 
stale>>SctPattcm(state->GetA!TowPattcmO); 
BSplineSelection*  ss  » 

new  BSplincSclcction(x,  y.  n,  state->GctGraphicGSO); 

//  append  the  spline  to  the  operator  list 

drawing->DataFlowSplineAppend(ss,  esO,  esn); 
drawing->Sclect(ss); 

//  reset  the  pattern  to  be  the  original  pattern 

state->SctBrush(oIdB  rash); 
sUte'>S  ctPattcm(tcmp); 

Do(ncw  AddChange(drawing,  drawingview)); 
dra  wingvicw->ErascHandles  0; 


I 


1 


//  HandleEUipse  draws  a  circle  with  a  radius  of  35  pixels  at  the  position 
//  of  the  user's  mouse  when  he  clicks  the  left  mouse  button 
//  Changed  2/6/91 
//  By  Patrick  D.  Barnes 

//  Description:  Rxed  bug  where  size  of  operator  is  not  adjusted  for 
//  Zoom. 


void  Editor:  JlandleElHpse  (Event&  e)  { 
float  aOO,  aOl,  alO,  scale,  a20,  a21; 
int  radius; 

Transformer  t; 

dra  wing->GrtPictureTr  (t); 

LGetEntrics(aOO,  aOl,  alO,  scale,  a20,  a21); 
radius  -  (int)  ((float)  OperatorRadius  *  scale); 

drawingview»>ErascHandlcsO; 
6tate*>Con8train(e.x,  e.y); 

BlipseSelection*  es  » 


new  EllipscSclcction(c.x,  e.y,  radius,  radius, 
stat^>GctGr^hicGS()); 
drawing->S  cl  cct(cs); 
dra  wing->OpcratorAppcnd(cs) ; 

Do(ncw  AddChangc(drawing,  drawingview)); 

) 


//  HandlcRcct  draws  a  square  with  a  side  of  35  pixels  at  the  position 
//  of  the  user's  mouse  when  he  clicks  the  left  mouse  button 
//  Changed  11/7/94 
//By  C.S£aglc 

//Description:  Created  function 

void  Editor:  JIandleRcct  (Event*  c)  | 
float  aOO,  aO  1 ,  a  1 0,  scale,  a20,  a2 1 ; 
int  offset; 

Transformer  t; 
dra  wing->GctPicturc’IT(t); 
tGctEntriesfaOO,  aOl,  aiO,  scale,  a20,  a21); 
offset  *  (int)  ((float)  OperatorRadius  *  scale); 

drawingvicw->ErascHandlcsO; 
statc->Constrain(e.x,  e.y); 

RcctSclcction*  rs  « 

new  RcctSclcction(e.X'Offsct,  c.y-offset,  c.x+offsct,  e.y+offset, 
state'>GetGrjq)hicGSO); 
drawing->S  clect(rs); 
drawing->OpcratorAppcnd(rs); 

Do(new  AddChangc(drawing,  drawingview)); 

} 


//  New  offers  to  write  an  unsaved  drawing  and  creates  a  new  empty 
//  drawing  if  the  save  succeeds  or  the  user  refuses  the  offer. 

void  Editor:  J4cw  0  { 
boolean  successful  **  OfferToSaveQ; 
if  (successful)  | 
drawing->ClcarPicturcO; 

Resct(nil); 

} 

) 


//  Revert  rereads  the  drawing  from  its  file.  It  asks  for  confirmation 
//  before  reverting  an  unsaved  drawing. 

void  Editor: :Rcvcrt  ()  { 

const  char*  prototype^name  »  statc->GetDrawingNameO; 
if  (prototypc_namc  !»*  nil)  { 
char  response  =  ievertdialog*>Confiim(); 
if  (response  =  "y')  { 

const  char*  filename  «  MakcRlenamc(prototype_name); 
drawing->ReadDFDFilcs(dir,  prototypc.namc); 
Resct(prototypc_namc) ; 

/*  I 

else  ( 

savccuidialog-> 

SctWamingC'couldnt  revert!  (file  nonexistent?)"); 

OpenO: 

}•/ 

) 

I 

} 

//  Open  reads  a  drawing  from  a  file  whose  filename  is  created  by  the  given 
//  prototype  name.  If  it  fails,  it  calls  the  interactive  Open  to  ask  the 
//  user  to  type  another  name. 

//  Modified:  10/19/94  by  C.S.Eagle 
//  to  conform  to  new  .graph  fontnat 

void  Editor::Opcn  (const  char*  prototypc_namc)  { 
drawing->ClcarPicturcO; 

drawing- >RcadDFDFiles(dir,  prot<Hypc_namc); 

const  char*  spcc^filcname  *  MakcSpecRlename(prototype_namc); 

Rcset(prototypc_namc); 
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//  Open  prompts  for  a  prototype  name.  It  then  appends  ".gr^h”  to  that 
//  name  to  make  the  proper  file  name  and  reads  a  drawing  from  that  file. 
//  It  offers  to  save  an  unsaved  drawing  and  it  keqjs  trying  to  read  a 
//  drawing  until  it  succeeds  or  the  user  cancels  the  command. 

void  Editor::Opcn  0  i 
if(OffcrToSavc())  ( 
drawing->CleaiPicturc(); 
const  char*  prototypc_namc  =  nil; 
char*  piolotypc_arTay[MAXPROTOTYPES]; 
find_j)rototypc_names(prototype_anay»  dir,  ’’edit"); 
opcndialog->Clcar() ; 
opcndialog->Inscit(piototypc_arTay); 
for{;;)  ( 

prototypc_name  *  opendialog->Sclcct(); 
if  (prototype_namc  nil) 
break; 
else  { 

drawing->ReadDFDFiles(dir,  prototypc_namc); 
const  char*  spcc_fil«iame - 

MakeSpccInlcname(prDtotypc_name); 

Rcset(prototype_name) ; 
break; 


//  Save  writes  the  drawing  to  the  file  it  was  read  from  unless  there's 
//  no  file  or  it  cant  write  the  drawing  to  that  file,  in  which  case 
//  it  hands  the  job  off  to  SaveAs. 

//Change:  1/29/92 
//  Author:  Pat  Bames 
//  Description:  Disable  SaveAs 

void  Editor::Savc  0  I 

const  char*  prototype^name  «  state->GctDrawingNameO; 
if  (prototypc_name  =  nil)  { 
if  (statc->GctModifSlatus()  Modified) 

SaveAsQ; 

} 

else  if  (state->GetModifStatus() «  ReadOnly)  { 
saveasdialog->SctErrorTitle(’'Cant  save  in  lead-Mily  file!"); 
SaveAsQ; 

I 

else  { 

const  char*  filename  =  MakeRlename(prototype_name); 
boolean  successful  *  drawing->WritePicture(filenamc,  state); 
if  (successful)  { 

8tate<>S  etModifStatusfUnmodified); 
stale->UpdatcVicwsO ; 

drawing->WriteDFDRles(dir,prototypc_name); 

1 

else 

savcasdialog->SetError’Iitle("Couldnt  save!"); 


1 

//Change:  1/29/92 
//  Author:  Pat  Bames 

//  Description:  Commit  calls  save  to  save  the  files,  then  calls  the 
if  Caps  92  UI  DatabaseManager  function  "Execute"  to  load  the 
//  subtree  into  the  database.  Note:  to  maintain  consistency, 

//  the  assumption  is  that  any  dtange  affects  all  the  children 
//  in  the  operator  subtree  decomposition. 

void  Editor;  :Commit  ()  { 
int  code; 
long  status; 

char  prototype_name(256]; 

const  char*  objcct^namc  ■  state->GetDrawingNameO; 
if  {objcct_namc  1=  nil)  { 

SaveQ; 


if  {dcsign_databasc[0]  =  NULL)  { 
fprintf(stdcrr,  "Error:  Cannot  commit,  database  name  not  set.Vi"); 
return; 

I 

strcpy(prototype_namc,  object_namc); 
strtok(prototypejnamc, "  .\nV)"); 
intcr->SetCu  rso  rfhou  i^lass); 
if(fork()  =  0){ 

code  =  cxcclp("dcsign_databasc", 

ddbCmd, 

design_database, 

"vaa", 

prototypc_name, 
objcct_name,  0); 
exit(code); 

I 

I 


wait(&status); 

intcr->SctCursor<dcfauItCu  rsor) ; 

I 


//  SaveAs  prompts  for  a  prototype  name.  It  then  uses  that  name  to 
//  d^nnine  the  file  name  and  writes  the  drawing  to  that  file. 

//  It  asks  for  confimnation  before  overwriting  an  already  existing 
//  file  and  it  keeps  trying  to  write  the  drawing  until  it  succeeds  or 
//  the  user  cancels  the  command. 

void  Editor:  :SaveAs  0  { 
const  char*  prototypc_namc  «  nil; 
char*  prototypc_aiTay[MAXPRCyrOTYPES]; 
for  (;;)  \ 

find_piototype_names(prototypc_anay,  dir,  "edit"); 
savea5dia)og->Clear0 ; 
saveasdialog->ln5eit(p  rototypc_array); 
piototypc_name  ■  saveasdialog->SelcctO; 
if  (piototype^name  —  nil) 
break; 
else  ( 

char  filename[128]; 
strcpy(filcnamc,prototype_namc); 

5trcat(filcnamcJC)FD_EXT); 
if  (drawing->£xi5ts (filename))  { 

overwritedialog->SetWaming("a  drawing  named  ",  prototype_name); 
char  response  *  overwritedialog->ConfinnO: 
if  (response  I*  'y*) 
break; 

I 

const  char*  drawfilenamc  «  MakcHlcname(piototypc_namc); 
boolean  successful  »  drawing->WritePicture(drawfilename,  state); 
if  (successful)  ( 

sute->SetDrawingName(prototypc_namc); 

state->SetModifStatus(Unmodified); 

8tate*>UpdatcVicws(); 

drawing->WritcDFDFilcs(dir,prototypc_name); 

break; 

) 

else 

saveasdialog->SetErrorTitle("Couldn't  save!"); 


} 

8aveasdialog->SctEiTorTltle(""); 

} 

//  Print  prompts  for  a  print  command  and  writes  the  drawing  through  a 
If  pipe  to  that  command's  standard  input  It  keq>s  trying  to  print 
//  the  drawing  until  it  succeeds  or  the  user  cancels  the  command. 

void  Editon-JMnt  Q  | 

if  (state->GctModifStatusO  Modified)  { 

savccurdialog->SctWamingC'a  Ixoken  pipe  signal  won’t  be  caught"); 

) 

boolean  successful «  OfferToSaveO; 
if  (successful)  { 
char*  emd  vnil; 
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for  (;;)  { 
delete  cmd; 

cmd  *  printdiaIog->Edit(nil); 

if  (cmd  «=!  nil)  { 

break; 

I 

boolean  successful  =  drawing->Printp!Cture(cmd»  state); 

if  (successful)  { 

break; 

)  else  ( 

printdialog->SetWamingC‘coiildn't  execute  ",  cmd); 

I 


delete  cmd; 

} 

} 


//  Skew  comments/code  ratio  to  work  around  cpp  bug 


//  Quit  offers  to  save  an  unsaved  drawing  and  tells  Idraw  to  quit 
//  running  if  the  save  succeeds  or  the  user  refuses  the  offer. 

//Modified  2/3/92 

//  by  Patrick  D.  Barnes 

//  Description:  Change  quit  to  always  save 

void  Editor:  :(^it  (£vent&  c)  | 

//boolean  successful  ■  OffcrToSaveO; 

//if  (successful)  { 

SaveO; 

if  (staie->GctModifStatus()  »  Unmodified)  { 
e.targetsnil; 

) 

1 

//  Checkpoint  writes  an  unsaved  drawing  to  a  tonporary  filename.  The 
//  program  currently  calls  Checkpoint  only  when  an  X  cnor  occurs. 

void  Editor:  :Checkpoint  0  I 

/*  extern  char*  tcmpnam(char*,  char*);  */ 

if  (state->GetModifStatusO  »  Modified)  ( 

/*  char*  path  =  tcmpnamCV,  "idraw");  */ 
char*  path  =  tmpnamC’yidraw"); 
boolean  successful  =  drawing->WritePicturc(path.  state); 
if  (successful)  { 

fprintf(stdcrr,  "saved  drawing  as  \"%sW",  path); 

)clse{ 

fprintffstderr,  "sorry,  couldn’t  save  drawing  as  V’^tsVNn",  path); 

) 

delete  path; 

1  else  { 

fprintffstderr,  "drawing  was  unmodified,  didn't  save  i^n"); 

I 

} 


//  Undo  undoes  the  last  change  made  to  the  drawing.  Undo  docs  nothing 
//  if  all  stored  dianges  have  been  undone. 

void  Editor::Undo  ()  { 
history->UndoO; 

) 


//  Redo  redoes  the  last  undone  change  made  to  the  drawing,  i.e.,  it 
//  undoes  an  Undo.  Redo  does  nothing  if  it  follows  a  Do. 

void  Editor::Redo  ()  { 
history->Redo(); 

) 

//  Cut  removes  the  Selections  and  writes  them  to  the  clipboard  file, 
//  overwriting  whatever  was  there  previously. 
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void  Editor:  :Cut  0  { 

Do(ncw  CutChange(drawing,  drawingvicw)); 

I 

//  Copy  copies  the  Selections  and  writes  them  to  the  clipboard  file, 
//  overwriting  whatever  was  there  previously. 

void  Editor:  :Copy  0  I 

Do(ncw  CopyQiange(drawing»  drawingview)); 

I 


//  Paste  reads  new  Selections  from  the  clipboard  file  and  appends  them 
//  to  the  drawing. 

void  Editor:  J^astc  0  { 

Do(ncw  PasteChange(drawing»  drawingview,  state)); 

} 

//  Duplicate  di^licates  the  Selections  and  appends  the  new  Selections 
//  to  the  drawing. 

void  Editor:  d>]plicate  ()  { 

Do(ncw  DuplicatcChange(drawing,  drawingview)); 


//  Delete  deletes  all  of  the  Selections, 
void  Editor: dDelete  0  ( 

Do(ncw  DclcteChangefdrawing,  drawingview)); 

} 


//  SelectAll  selects  all  of  the  Selections  in  the  drawing. 

void  Editor:  :SeIcct All  0  I 
drawing->SclcctA110; 
drawingview->DTawHandlesO; 

} 


//  SetBrush  sets  the  Selections'  brush  and  updates  the  views  to 
//  display  the  new  current  brush. 

void  Editor::SetBrush  (CBrush*  brush)  { 
state->SetB  rush(brush); 
statc->UpdatcVicws() ; 

Do(ncw  SetBnishChangefdrawing,  drawingview,  brush)); 

} 


//  Skew  comments/code  ratio  to  work  around  ^p  bug 


//  SetFgColor  sets  the  Selections'  foreground  color  and  updates  the 
//  views  to  display  the  new  current  foreground  color. 

void  Editor:  ;SctFgCol  or  (IColor*  fg)  ( 
sUte->SctFgColor(fg); 
stale->UpdateViewsO; 

Do(ncw  SctFgColoiChangc(drawing,  drawingview,  fg)); 

I 

//  SetBgColor  sets  the  Selections'  background  color  and  updates  the 
//  views  to  display  the  new  cunent  background  color. 

void  Editor::SctBgColor  (IColor*  bg)  { 
state->SetB  gColorfbg); 
state->Updatc'V^ewsO; 

Do(new  SetBgCo1orChangc(drawing,  drawingview,  bg)); 

) 


//  SctFonl  sets  the  Selections'  font  and  updates  the  views  to  display 
//  the  new  current  font. 

void  Editor  :SetFont  (IFont*  font)  { 


statc->SetFont(  font); 
statc->UpdatcViews() : 

DoCncw  SetFontChangc(drawing,  drawingvicw.  font)); 

} 

//  SctPattcm  sets  the  Selections’  pattem  and  updates  the  views  to 
//  display  the  new  current  pattem, 

void  Editor::SetPattcm  (IPattem*  pattem)  { 
state->SctPattcm(pattem) ; 
statC‘>UpdateViews() : 

Do(new  SetPattcmChange(drawing,  drawingview,  pattern)); 

) 


H  AlignLeftSides  aligns  the  rest  of  the  Selections's  left  sides  with 
//  the  hist  Selection's  left  side. 

void  Edilor;*AlignLcftSidcs  0  { 

Do(ncw  AlignChange(drawing,  drawingvicw.  Left,  Left)); 

) 

H  AlignRightSidcs  aligns  the  rest  of  the  Selections*  right  sides  with 
//  the  first  Selection's  right  side. 

void  Editor:  lAlignRightSidcs  ()  { 

Do(ncw  AlignChange{drawing.  drawingvicw,  Ri^t,  Right)); 

} 


//  AlignBottomSidcs  aligns  the  rest  of  the  Selections'  bottom  sides 
//  with  the  first  Selection's  bottom  side. 

void  Editor:  :AlignBottoms  Q  | 

Do(ncw  AlignChange(drawing,  drawingview.  Bottom,  Bottom)); 

} 


H  AlignTopSidcs  aligns  the  rest  of  the  Selections*  top  sides  with  the 
//  fiist  Selection's  top  side. 

void  Editor:  lAlignTops  ()  ( 

Do(ncw  AiignChange(drawing,  drawingvicw.  Top,  Top)); 

) 

//  Align  VcitCentcis  aligns  the  rest  of  the  Selections*  vertical 
//  centers  with  the  first  Selection's  vertical  center, 

void  Editon:AlignVcrtCcnters  0  i 

Do(ncw  AlignChangc(drawing,  drawingvicw,  VertCenter,  VertCenter)); 

I 


//  AlignHorizCenters  aligns  the  rest  of  the  Selections'  horizontal 
//  centers  with  the  first  Selection's  horizontal  center. 

void  Editor:  zAlignHorizCcnters  0  { 

Dofnew  AlignChange(drawing,  drawingvicw,  HorizCcntcr,  HorizCentcr)); 

I 

//  AlignCentcrs  aligns  the  rest  of  the  Selections'  centers  with  the 
//  first  Selection’s  center. 

void  Editor:  lAlignCcntcis  ()  { 

Do(ncw  AlignChange(drawing,  drawingview.  Crater,  Center)); 

1 

//  AlignLcftToRight  aligns  each  Selection's  left  side  with  its 
//  predecessor's  right  side. 

void  Editor:  lAligriLeftToRight  0  I 
Do(ncw  AlignChangc(drawing,  drawingview.  Right,  Left)); 

) 


//  AlignRightToLcft  aligns  each  Selection's  right  side  with  its 
//  predecessor's  left  side. 

void  Editor: :AlignRightToLcft  ()  | 

Do{ncw  AHgnChangc(drawing,  drawingvicw.  Left,  Right)); 

\ 
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//  AlignBottomXoTop  aligns  each  Selection’s  bottom  side  with  its 
//  predecessor’s  top  side. 

void  Editor;  :AlignBottoniToTop  ()  { 

Do(ncw  AlignChange(drawing,  drawingview.  Top.  Bottom)); 

) 

//  AlignTopToBottom  aligns  each  Selection’s  top  side  with  its 
//  predecessor’s  bottom  side. 

void  Editor: ‘AlignTopToBottom  0  I 
Do(new  AlignChange(drawing.  drawingview.  Bottom,  Top)); 

} 

//  AlignToGrid  aligns  the  Selections'  lower  left  comers  with  the 
//  closest  grid  point 

void  Editor:  AlignToGrid  0  I 
Do(new  AlignToGridChange(drawing.  drawingview)); 

I 


//  Reduce  reduces  the  drawing’s  magnification  by  a  factor  of  two. 

void  Editor:  :Reducc  0  { 
drawingvicw->Rcducc(); 

I 

//  Enlarge  enlarges  the  drawing’s  magnification  by  a  factor  of  two. 

void  Editor.tEnlaige  0  1 
dra  wingview->Enl  argeO; 

) 


//  NormalSize  resets  the  drawing’s  magnification. 

void  Editor  J*JormalSize  ()  ( 
dra  wingview->No  rmalSizeO; 

I 


//  ReduecToFit  reduces  the  drawing's  magnification  enough  to  fit  all 
//  of  the  drawing  in  the  window. 

void  Editor: .‘ReduceToFit  ()  { 
drawingvicw->RcduccToFitO; 

I 


//  CenterPage  scrolls  the  drawing  so  its  center  coincidences  with  the 
//  window’s  center. 

void  Editor::CcntcrPagc  0  I 
drawingview->CentcrPageO; 

I 


//  RedrawPage  redraws  the  drawing  without  moving  the  view. 

void  Editor:  :RedrawPage  ()  { 
drawingvieW“>DrawO; 

} 

//  GriddingOnOff  toggles  the  grid’s  constraint  on  or  off. 

void  Editor:  KjriddingQnOff  0  I 
state->SctGridGravity(lstate->GetGridGravityO); 
8tote->UpdatcVicwsO; 

I 

//  GridVisiblcInvisiblc  toggles  the  grid's  visibility  on  or  off. 

void  Editon.'GridVisiWeInvisiWe  0  { 
state->SetGridVisib!lity(lstatc->GctGridVisib!lityO); 
drawingvicw->DrawO; 

I 


//  GridSpacing  prompts  the  user  for  the  new  grid  spac^g  in  units  of 
//  points.  If  we  didn’t  use  points  as  units,  the  same  grid  spacing 


//  would  not  be  portable  to  differant  displays. 


void  Editor: :GridSpacing  ()  { 
static  char  oldspacing[50j; 

sprintf(o!dspacing,  stotc->GetGridSpacing()); 
char*  spacing -nil; 
for  (;;)  { 
delete  spacing; 

spacing  ^  spacingdialog>>£dit(oldspacing); 

if  (spacing  «=  nil)  { 

break; 

} 

float  s  »  0.; 

if  (sscanf(spacing,  &s)  *«=  1)  { 
if(s>0.){ 

state>>SetG  ridSpacing(s) ; 
if  (statc->GetGridVfeibility() « true)  { 
drawingview->Updatc(); 

} 

} 

break; 

}  else  { 

spacingdialog'>SetWamingrcouldn't  parse  ",  spacing); 

) 

) 

delete  spacing; 

} 


//  Orientation  toggles  the  page  between  poitrait  and  landscape 
//  orientations. 

void  Editor:  :Orientation  Q  { 
state->ToggleOrientation0 ; 
dra  wingview->UpdatcO ; 

I 

//  ShowVeision  displays  idraw’s  version  level  and  author. 

void  Editor:  :ShowVeTsion  ()  { 
versiondialog->Display(); 

} 

//  Constract  the  filename  from  the  given  prototype  name 

const  char*  Editor:  :MakeFilename(const  char*  name)  | 
char*  filename  *=  new  char  [strlen(dir)  +  strlen(name)  +  GRAPH_EXT_LEN  +1]; 
strcpy(fi]ename,dir); 
strcatffi  lename^iame); 
strcatffi  lename,GRAPH_EXT); 
return  filename; 

1 

const  char*  Editor:  :MakeSpecFiiename(const  char*  name)  { 
char*  filename  «  new  char  (strlcn(dir)  +  strien(name)  + 

SPEC_EXT_LEN+  1]; 
strcpy  (filename,dir); 
strcat(fi  lenameoiame); 
strcat(fi  lename,SPEC_PSDL_EXD; 
return  filename; 

1 

//  Do  perfomns  a  change  to  the  drawing  and  updates  the  drawing's 
//  mo^hcation  status  if  it  was  unmodified. 

void  Editor:  JDo  (QrangeNode*  changoiode)  { 
switch  (state>>GetModifStatusO)  { 
case  Unmodified: 
history->Do(changcnodc); 
state->SetModifStatus(Modified) ; 
state-  >UpdaieViewsO; 
break; 
default: 

history->Do(changenode); 

break; 

1 

I 
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//  InputVcrticcs  lets  the  user  keep  drawing  a  series  of  connected 
//  lines  until  the  usct  presses  a  button  other  than  the  left  button. 

//  It  returns  the  vertices  inputted  by  the  user. 

void  Editor:  JnputVcitices  (Evcnt&  e,  Coord*&  xrrt.  Coord  yret,  int&  nrct)  { 

const  int  INITIALSIZE  «  100; 
static  int  sizebuffers  «  0; 
static  RubbetLinc**  robbcrlines  «ml; 
static  Coord*  x  =  nil; 
static  Coord*  y  *  nil; 
if  (INITIALSIZE  >  sizebuffers)  { 
sizebuffers  =  INITIALSIZE; 
rubbeiiines  *  new  RubberLinc*[sizebuffers]; 

X  =  new  Coord  [sizebuffers]; 
y  s  new  Coord  [sizebuffers]; 

} 


int  n  »  0; 

state->Constrain(e.x,  e.y); 
rubberlines [0]  s  nil; 
x[0]  =  e.x; 
y[0]«c.y; 

++n; 

while  (c.button  *=  LEFTMOUSE)  { 
robberlines  [n] »  NewRubberLineOrAxis(e); 
c.cventType  »  UpEvent; 

drawingvicw“>Manipulate(e,  nibberiinesfn],  DownEvcot,  true,  false); 
Coord  dummy; 

robbcrlines  [n]->GetCurrcnt{dummy,  dummy,  e.x,  e.y); 
xfn]  =  e.x; 
y(n]  e.y; 

-M-n; 

if  (n  ■*  sizebuffers)  { 

RubbcrLine**  oldrubberlines  » rubberlines; 

Coord*  oldx  *  x; 

Coord*  oldy  *  y; 

sizebuffers  +» INITIAI 

robbcrlines  new  Rubberline*  [sizebuffers]; 

X  «  new  Coord  [sizebuffers]; 
y  «  new  Coord  [sizebuffers]; 

bcopy(oIdrubberlines,  robberiines,  n  ♦  sizeof(RubbcrLinc*)); 

bcopy(oldx,  x,  n  *  sizeoffCoord)); 

bcopy(oldy,  y,  n  *  sizcof(Coord)); 

delete  oldrubberlines; 

delete  oldx; 

delete  oldy; 

I 

} 

xrct*  x; 
yret^y; 
nrct  =  n; 

for  (int  i  *=  1;  i  <  n;  i++)  { 
robberiines  [i]->ErascO; 
delete  robberlines[i]; 

[ 

) 


If  NewRubbcrLincOrAxis  creates  and  returns  a  new  RubbcrLine  or  a  new 
//  RubberAxis  depending  on  whether  the  shift  key's  being  depressed. 

RubbcrLine*  Editor  J'lcwRubberLineOrAxis  (Evcnt&  c)  [ 
return  (!c.shift  ? 

new  RubbetLine(nil,  nil,  c.x,  e.y,  e.x,  c.y) : 
new  RubberAxis(nil,  nil,  c.x,  e.y,  e.x,  c.y)); 

} 

//  NewRubbcrEllipseOrCirclc  creates  and  returns  a  new  RubberElIipse  or 
//  a  new  RubberCircle  depending  on  the  shift  key's  state. 

RubberElIipse*  Editor •NcwRubberEllipseOiCircle  (Evcnt&  c)  { 
return  (leshift  ? 

new  Rubbet£Ilipse(nil,  nil,  e.x,  e.y,  c.x,  e.y) : 


new  RubbeiCircle(niI,  nil,  e.x,  e.y,  e.x,  e.y)); 

) 

//  Skew  comments/code  ratio  to  work  around  cpp  bug 
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I  I  NcwRubberRcctOrSquare  creates  and  returns  a  new  RubberRect  or  a  new 
//  Rubbers quarc  depending  on  whether  the  shift  key's  being  depressed. 

RubberRect*  Editor:  JNcwRubberRectOrS  quarc  (Eventife  e)  { 
return  (le.shift  ? 

new  RubberRectfnil,  nil,  e.x,  e.y,  e.x,  e.y) : 
new  RubbciSquare(nil,  nil,  c.x,  e.y,  e.x,  e.y)); 

} 


//  OfferToSavc  returns  true  if  it  saves  an  unsaved  drawing  or  the  user 
//  refuses  the  offer  or  no  changes  need  to  be  saved. 

boolean  Editor: lOffcrToSave  0  I 
boolean  successful  =  false; 
if  (state->GetModifStatus()  ==  Modified)  { 
char  response  -  savecurdiaIog“>ConfirmOj 
if  (response  — '/)  { 

Save(); 

if  (statc->GetModifStatus()  ~  Unmodified)  { 
successful  =  true; 

} 

}  else  if  (response  =  'n')  { 
successful  =  true; 

} 

}c!sc{ 

successful  =  tme; 

) 

return  successful; 

} 


//  Reset  redraws  the  view,  clears  the  history,  and  resets  state 
//  information  about  the  drawing's  name  and  its  modification  status. 

void  Editor: :Reset  (const  char*  prototype_namc)  { 
history  •>Clear(); 

statc->S  ctD  ra  wingNamc(prototype__namc); 

//  if  (prototypc_name  1=  nil  &&  !drawing“>Writablc(filename))  { 

//  state->S<^o(iifStatus  (Readonly); 

//  1 

//  else  { 

statc->SetModifStatus(Unmodified); 

//  I 

statc->UpdatcVicws() ; 
drawingview->Update(); 

} 


//  ReselMessage  changes  the  editor's  message  block 

void  Editor: :ResetMessagc(const  char*  msg)  { 
state>>SetMessage(msg); 
state“>UpdatcViewsO ; 

I 

void  Editor::ToolSet(char  1)  { 

Panelltem  *t  *=  tools->LookUp(l); 

t->SctMcssagc(); 

loolS“>SctCur(t); 

) 

errhandlerJi 


#ifndcf  crrhandlerjh 
#define  crrhandlcr_h 

#include  <intcrVicws/rcqerrJi> 

//  Declare  imported  types. 

class  Editor, 
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//  ErrHandler  calls  upon  the  Editor  to  save  the  current  drawing  if  an 
//  X  request  error  occurs. 

class  ErrHandler :  public  RcqErr  { 
public: 

EnHandleK); 

-~ErrHandlcr(); 

void  SetEditor(Editor*); 
void  Error(); 

protected: 

Editor’*'  editor;  //handles  drawing  and  editing  operations 


#endif 


errhandler.c 

#include  "cditor.h" 

#includc  *'enhandler.h" 

#includc  <stdio  Ji> 

#include  <stdlib  Ji> 

//  ErrHandler  doesn't  have  an  Editor  yet 

ErrHandler: irrHandlcr  0  { 
editor  =  nil; 

} 

ErrHandler::-EnHandier  0  ( I 

//  SetEditor  sets  the  Editor  which  ErrHandler  calls  upon. 

void  ErrHandlerrSetEditor  (Editor*  c)  { 
editor  =  e; 

} 

//  Error  prints  the  X  error,  checkpoints  the  current  drawing,  and 
//  terminates  the  program's  execution. 

void  ErrHandler: :Error  ()  { 

fprintf(stderr,  'X  Error:  %s\n",  message); 
fprintf(stderr,  "  Request  code:  %d\n”,  request); 
fprintf(stderr,  "  Request  function:  %dNn",  detail); 
fprintf(stdcrr,  "  Request  window  Ox%x\n",  id); 
fprintf(stderr, "  Error  Serial  #%<fvn",  msgid); 
if  (editor  !=  nil)  { 

editor- >Checkpoint() ; 

} 

const  int  ERROR  =  1 ; 
cxit(ERROR); 

I 


highlightenh 

#ifndef  highlighter_h 
#define  highlightcr_h 

#include  <IntcrVicws/sccncii> 

//  A  HighlightcrParent  creates  a  highlight  painter  for  its  interior 
//  Highlighters  to  share. 

class  HighlightcrParent :  public  MonoScene  { 
public: 

Highlit  terPa  rentO ; 

~Highli  ghlcrPa  rcnt(); 

boolean  SameOuq)utAs(Painlcr*); 

Painter*  GctHighlightPainter(); 
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protected: 


Painter*  highlight; 


//  stores  painter  to  give  interior  Highlighters 


//  A  Highlighter  draws  itself  and  highlights  or  unhighlights  itself  on 
//  command. 

class  Highli^ter :  public  Intcractor  { 
public; 

Highli^tcrO; 

-HighlighteK); 

void  SetHighlightcrParent(HighlightcrParent*); 
void  Highlight(booIcan  on); 
protected: 

void  ReconfigO; 

HighlightcrParent*  hparcnt;//  gives  us  higjilight  painter  if  it’s  nonnil 
boolean  highli^tcd;//  stores  tmc  if  we  should  be  highli^ted 

Painter*  highli^t;  //  draws  us  with  reversed  colors 

Painter*  normal;  //  draws  us  with  normal  colors 


}; 


#endif 


highlighter.c 

#includc  "highlighter.h" 

#include  <IntcrVicws^aintcr.h> 

//  Hi^IightcrParcnt  starts  with  no  highlight  painter. 

Highli^terParcnt::HighlightcrParcnt  0  { 
hi^light  =  nil; 

I 

//  Free  storage  allocated  for  the  highlight  painter. 

HighlighteiParent::^Highli^terParent  0  { 

Unref(hi^light); 

} 

//  SameOutputAs  compares  the  givai  painter  to  our  output  painter  so 
//  our  interior  Highlighters  can  decide  if  they  can  share  our 
//  highlight  painter. 

boolean  HighlightcrParcnt::SamcOutputAs  (Painter*  out)  { 
return  out  ■=  ou^ut; 

} 

//  GctHi^lightPaintcr  creates  our  highlight  painter  if  we  don't  have 
//  one  yet  and  returns  it  so  all  of  our  interior  Highlighters  can 
//  share  it  as  well  as  our  ou^ut  painter  which  they  inherit 
//  automatically.  We  can’t  just  create  highlight  in  Reconfig  because 
//  our  interior  Highlightcis  execute  their  Reconfig  before  we  do,  so 
//  we  create  it  here  (once)  when  they  call  us  from  their  Reconfig. 

Painter*  HighlighterParait::GctHighlightPainter  0  { 
if  (highlight  =  nil)  { 

hi^Hght  =  new  Paintcr(output); 
highlight->ReferenccO; 

highlight->SetColois(output->GetBgColorO,output->GctFgColorO); 

) 

return  highlight; 

} 

//  Highlighter  starts  off  unhi^lighted  with  no  HighlighterParent  yet. 
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Highlighter  :Highlightcr()  { 
hparcnt  s*  nil; 
highlighted  =  false; 
hi^light  =s  nil; 
normal nil; 

I 

//  Free  storage  allocated  for  the  highlight  painter. 

Highlighter  :~Highlighter  ()  { 
output  s;  normal; 

Unref  (highlight); 

} 


//  SetHighlighteriParent  gives  us  a  HighlighterParent. 

void  HighlightcniSetHighlighterParcnt  (HighlighterParent*  hp)  { 
hparcnt  =  hp; 

) 


//  Highlight  exchanges  our  painter  and  draws  us  unless  we 
//  don't  have  a  canvas  so  a  panel  can  highlight  us  before  the  panel's 
//  inserted  and  a  mmu  can  unhighlight  us  after  the  menu’s  removed. 

void  Highlighter:  Jlighlight  (boolean  on)  { 
highlighted  =  on; 
output  =  on  ?  highlight :  normal; 
if  (canvas  I-  nil)  { 

Rcdraw(0, 0,  xmax,  ymax); 

) 

} 

//  Reconhg  initializes  our  hi^light  painter  if  necessary  by  getting 
//  it  from  our  HighlighterParent  if  possible  or  else  creating  a  new 
//  painter.  Then  Rcconfig  switches  to  the  appropriate  painter. 

void  Highli^tcr:;Reconfig  ()  { 

Interact©  r::Rcconfig(); 

if  (output  !=  highlight  &&  output  1=  normal)  { 

Unrcf(highli^t); 

if  (hparcnt  1*=  nil  &&  hparcnt->SamcOutputAs  (output))  { 
highlight  ss  hparcnt->GctHighIi^tPaintcrO; 
hi^light->Rcfcrencc(); 

}  else  {  //  bite  the  bullet 

highlight  =  new  Painter(output); 
highlight->Referencc(); 

highlight->SctColore(output->GctBgColorO,  output->GctFgColor()); 

} 

normal  =  output; 

I 

output «  highlighted  ?  highlight :  normal; 

) 


histor3r.h 


#ifadef  history  _h 
#dcfinc  history_h 

#include  <InterViews/defsii> 

//  Declare  in^orted  types. 

class  ChangcNodc; 
class  ChangeList; 
class  Interactor; 

//  A  History  maintains  a  log  of  changes  made  to  the  drawing  to  permit 
//  changes  to  be  undone. 

class  History  ( 
public: 

History  (In  tcracto  r*); 

-HisioryO; 
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boolean  IsEmptyO; 
void  ClcarQ; 
void  Do(ChangcNode*); 
void  RcdoQ; 
void  UndoO; 

protected: 

int  maxhistory;  //  maximum  number  of  changes  to  store 

ChangeList*  changelist;//  stores  changes  to  drawing 


I; 


#endif 


history.c 


#inc)ude  "history,h" 

#include  "istring.h" 

#include  "Ustchangc.h’' 

#inc!ude  ^terViewsAntcractor.h> 

#includc  <Intcr\^ews/Std/stdio  Ji> 

//  History  sets  its  maximum  number  of  changes  and  creates  the  history. 

History: iHistory  (Intcractor*i)  { 

const  char*  def  =  i->GctAttribotc("history"); 

char*  definition  «  strdupCdcf);  //  some  sscanfs  write  to  their  format.. 

if  (sscanf (definition,  &maxhistory)  !=  1)  { 

maxhistory  «  20;  //  default  if  we  can't  parse  definition 

fprintf(stdcrT,  "can't  parse  attribute  for  history, "); 
fprintffstderr,  "value  set  to  %d\n",  maxhistory); 


delete  definition; 
changelist  =  new  ChangcList 

) 

//  "History  frees  storage  allocated  for  the  changes. 

History:  :"Histoiy  0  { 
delete  changelist 

//  IsEmpty  returns  true  if  there  arc  no  changes  stored  in  the  list. 

boolean  History: :IsEmpty  ()  { 
return  changclist->SizeO  =  0; 

} 


//  Qear  deletes  all  of  the  stored  changes.  Calling  Gear  prevents 
//  dangling  pointers  from  being  referenced  if  the  user  tries  to  undo  a 
//  stored  change  that  was  made  before  a  New,  Revert,  or  Open  command. 

void  History  ::Clear  ()  ( 
changclist->I>clcteAll(); 

) 

//  Do  truncates  the  history  at  its  current  point  trims  the  history  to 
//  its  last  maxhistory- 1  changes,  performs  the  change,  appends  the 
//  change,  and  leaves  the  current  point  at  the  end  of  the  history. 

void  History:d>)  (ChangeNode*  changenode)  { 
while  (!changelist->AtEnd())  { 

changclist->Dcl  cteCu  rOl 

I 

ch  angelist->First() ; 

while  (changelist->SizeO  >=  maxhistory)  { 
chan  gclist->DelctcCu  rf) ; 

) 

changenode->Do() ; 
changelist- >  Appcnd(changcnodc) ; 
changeIist->L^t(); 
changelist->NcxtO ; 

I 


//  Redo  redoes  a  stored  change  in  the  history  and  steps  over  it  unless 
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//  the  current  point  is  already  at  the  end  of  the  history. 

void  History::Redo  0  I 
if  (!changelist->AtEnd())  { 

ChangeNode*  changenode  =  changelist->GetCurO; 

changenodc->Do(); 

changclist->Ncxt(); 

} 

I 


//  Undo  st^s  back  in  the  history  and  undoes  a  stored  change  unless 
//  the  current  point  is  already  at  the  beginning  of  the  history. 


void  History::Undo  ()  { 
changclist->Prcv  (); 
if  (!changelist->AtEnd())  { 

ChangcNode*  changenode  =  changelist->GetCurO; 
changcnodc->UndoO ; 


}  else  ( 
) 


changelist->Next() ; 


idraw.h 


#ifiidcf  idraw_h 
#dcfmc  idraw_h 

#include  <dnterViews/sccnc.h> 


//  Declare  imported  types. 

class  Drawing; 
class  Drawing  View; 
class  Editor, 
class  EnHandlcr, 
class  MapKey; 
class  State; 
class  Tools; 

//  An  Idraw  displays  a  drawing  editor. 

class  Idraw  :  public  MonoScene  ( 
public: 

Idraw(int,  char**); 

-IdrawQ; 


void  RunQ; 

void  Handlc(Event&); 
void  UpdatcO; 

intwWidthO  (return xmax+l;} 
int  wHcightO  { return  ymax+l ; } 


protected: 


void  ParscArgsCint,  char**); 
void  InitQ; 

const  char*  initial_prot;//  stores  name  of  initial  prototype  to  use  if  any 
char*  din  //  stores  name  of  directory  of  prototypes 
char*  ddb;  //  stores  name  of  desoign  database 
char*  ddbCmd;  //  stores  name  of  command  to  load  files  to  ddb 

Drawing*  drawing; 

DrawingView*  drawingview;// displays  drawing 
Editor*  editor, 

ErrHandlcr*  cnhandlen  //handles  an  X  request  error 
MapKey*  mapkey; 

Sutc*  state; 

Tools*  tools; 


//performs  operations  on  drawing 

//  handles  drawing  and  editing  operations 

//  maps  characters  to  Inteiactors 
//  stores  current  state  info  about  drawing 
//  displays  drawing  tools 


156 


#cndif 


idraw.c 


#include  "commandsdi" 

#inctude  "drawing-h” 

#include  "drawingvicwJh" 
fincludc  "cditorJi" 
tincludc  "crrhandlcnh" 

#include  ’’idraw.h" 

#ijicludc  ”istring.h" 

#include  ”mapkcy.h" 

#inctude  "statcJi" 

#include  "statevicws.h" 

#include  "tools.h" 

#include  <InterVicwsA3raphic4>paint.h> 

#include  <dntcrVicws/bordcr,h> 

#include  <intcrVicwsA30X.h> 

#includc  <IntcrVicws/cursor,h> 

#include  <lntcrVicws/cvcnt.h> 

#ijicludc  <IntcrVicws/frame.h> 

#inc)ude  <Jntcr^cws/glue.h> 

#include  <dntcrViews^anncrJi> 
fincludc  <IntcrVicws^crspcctiveJ»> 
fincludc  <InterViews/sensorJi> 
fincludc  <IntcrVicwsAransformcr.h> 
fincludc  <IntcrVicws/trayJi> 
fincludc  <IntcrVicws/Std/os/fs,h> 
fincludc  <sys/param.h> 
fincludc  <IntcrVicws/Std/stdio  Ji> 
fincludc  <string,h> 
fincludc  <stdlib.h> 

//  Id  raw  parses  its  command  line  and  initializes  its  members. 

IdrawrJdraw  (int  arge,  char**  argv)  { 

ParscArgs(aigc,  argv); 

InitPPaintO; 

InitO; 

} 


//  Free  storage  allocated  for  members  not  in  Idraw's  scene^ 

Idraw::'-Idraw  ()  { 

/*  delete  drawing; 
delete  din 
delete  ddb; 
delete  ddbCmd; 
delete  initial_prot; 
delete  editor, 
delete  cnhandlcr, 
delete  mapkey; 
delete  state;  */ 

\ 


H  Run  opens  the  initial  file  if  one  was  given  before  starting  to  run. 
void  Idraw::Run  ()  { 

//  pass  name  of  prototype  directory  to  editor  class 
//  Changed  1/31/92 
//  By  Patrick  d.  Barnes 

//  added  database  name  and  command  to  pass  to  editor. 

editor->SetDircctory(dir,  ddb,  ddbCmd); 

if  (initial_prot  l=nil)  { 

S  etCu  isorfhourglass); 
cditor->Opcn(initial_prot); 

SetCu  isorfdefaultCursor); 

I 

lnlcractor::Run(); 

I 
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//  Handle  routes  keystrokes  to  their  associated  interactois. 

void  Idraw::Handle  (Event&  e)  { 
switch  (e.cvaitType)  { 
case  KeyEvent: 
if(e.lcn>0)  ( 

Intcractor*  i  =  mapkey“>LookUp(eJ:cystring[0]); 
if  (i  !=ml)  { 
i->HandIc(c); 

} 

) 

break; 

default: 

break; 

) 

) 

//  Update  gets  the  picture’s  total  Iranformation  matrix  whenever  it 
//  changes  and  stores  it  in  State  for  creating  new  graphics. 

void  Idraw::Updatc  ()  { 

Transformer  t; 
drawing->GetPictu  reTT  (t) ; 
state->SctG  raphicT  (t); 

I 

//  ParseAtgs  stores  the  name  of  an  initial  prototype  and  name  of  prototype 
//  directory  to  use  if  any. 

//Changed:  1/31/92 
//  By  Patrick  D.  Barnes 

//  Rewrote  to  add  flags  -c  db  command,  and  -n  db  name. 

void  Idraw::ParscArgs  (int  aigc,  char**  aigv)  { 
dir  =  nil; 
ddb  = 

ddbCmd  =  ”design_databasc"; 

initiaLprot  =  nil; 

for  (int  i=l;i  <  arge;  i++)  { 

// fprintf(stdeiT,  "argument;%s;  %c\n",  argv[i],  argv[i][0]); 
if  (i  >=  arge  II  argv[i][0]  !=  ’-O  { 
fprintf(stdcrT,  "erroneous  argument;  %s\n",  aigv[i]); 

fprintf(stderT,  "usage:  graphic_cditor  { [-p  prototype jiame]  [>n  database_name]\n"); 
fprintf(stderr, "  [-d  prototypc_dir]  [-c  databasc_cmd]  }\n"); 

const  int  PARSINGERROR  =  1; 
exitCPARSINGERROR); 

) 

switch  (argv[i][l])  { 
case  ’p’: 

initial_prot  =  aigv[-H-i]; 
break; 
case 'd': 

dir  =  argv[++ij; 
break; 
case  ’c': 

ddbCmd  =  argv(++i]; 
break; 
case  'n': 

ddb  -  aigv (++!]; 
break; 
default: 

fprintf(stdcrr,  "erroneous  argument: %s\n",  argv(i]); 

fprintf(stderT,  "usage:  graphic_cditor  { [-p  prototype_name]  (-n  database_name]Nn"); 

fprintf(stdciT,  "  proto typc_dir]  [-c  database_cmd]  |Nn"); 

exit(l); 

I 

I 

//  set  default  dir 
if  (dir  =  nil)  { 

//  use  current  directory  to  search  for  and  save  drawing  files 

const  int  bufsize  =  MAXPATHLEN  +  1 ; 
static  char  buf{bufsize]; 
getewd  (buf ,bu  fsize); 
dir*  buf; 

I 
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) 


//  Init  creates  a  sensor  to  catch  keystrokes,  creates  members  and 
//  initializes  links  between  them,  and  composes  than  into  a  view  with 
//  boxes,  borders,  glue,  and  frames. 

void  Idraw:;Init  Q  { 
input  =  new  Sensor, 
input->Catch(KeyEvent); 

drawing  =  new  Drawing(8,5*inchcs,  ll*inches,  0.05*inch); 

drawingview  =  new  Dra  wing  View  (drawing->GctPage()); 

editor  =  new  Editor(this); 

cnhandlcr  **  new  EnHandler, 

mapkey  =  new  MapKey; 

state  -  new  State(this,  drawing->GctPage()); 

tools  «  new  Tools(editor,  mapkey); 

If  eagle  change  for  Shing  editor 
dra  wing->SetState(statc) ; 
drawing->SetDrawingView(drawingvicw); 
drawing->SetIdraw(this); 

drawingview->GetPerspectivc()->Attach(this); 

drawingvicw->SctSclcctionList((irawing->GctSelcctionList()); 

drawingvicw->SctState(statc); 

d  ra  wingview->SctToo  ls(lools); 

edito  r->SetDra  wing(dra  wing) ; 

edit©  r->SetDrawingVi  ew  (drawingview); 

editor->SetStatc(statc); 

edito  r->SetToo  ls(tool  s) ; 

crThandler->SctEdito  rfedito  r); 

enbandlcr->Install  0 ; 

VBox*  status  -  new  VBox( 
newHBox( 

new  ModifStatusView(statc), 
new  DrawingNameView  (state), 
new  G  ridding  View(statc), 
new  FontVicw(statc), 
new  MagnifView(state,  drawingview) 

). 

new  HBorder 

); 

VBox*  msgblock  =  new  VBox( 
new  HBox( 

newHGlue(10,10), 
new  MsgVicw(statc) 

). 

new  HBorder 

); 

HBox^  indies  =  new  HBox( 
new  BrushVicw(state), 
new  VB  order, 
new  Pattern Vicw(statc) 

); 

HBox*  cmds  *»  new  HBox( 

new  Commands(editor,  mapkey,  state), 

//  pad  drawing  area  with  200  extra  pixels 

newHGlue(200) 

); 

VBox*  panel  =  new  VBox( 
tools, 

new  VGlue, 

new  HBorder, 

new  Panner(drawingview) 

); 

pancl“>Propagatc(falsc); 

HBorder^  hborder «  new  HBorder, 

VBordcr*  vborder  *=  new  VBorder, 

Tray*  t »  new  Tray; 
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status,  t); 

t->HBox(t,  msgblock,  t); 

t->HBox(t,  indies,  vbordcr,  cmds,  t); 

t->HBox(t,  hbordcr,  t); 

t->HBox(t,  pane],  vbordcr,  drawingyiew,  t); 

t->VBox(t,  status,  msgblock,  indies,  hboider,  panel,  t); 

t->VBox(t,  status,  msgblock,  vbordcr,  t); 

t->VBox(t,  status,  msgblock,  cmds,  hbordcr,  drawingview,  t); 

Inscrt(ncw  Frame(t,  1 )); 

} 


iellipses.h 

#i&idef  iellipscs_h 
#define  iellipscs_h 

#include  <dUiterVicwsAjraphic/cllipscs.h> 

//  An  IFillEilipse  knows  whoi  NOT  to  draw  itself. 

class  IFillEilipse  :  public  FillEllipsc  ( 
public: 

IFiilEIlipsc(Cooiti,  Coord,  int,  int.  Graphic*  *=nil); 
protected: 

boolean  contains(PointObj&,  Graphic*); 
boolean  intersccts(BoxObj&,  Graphic*); 
void  draw(Canvas*,  Graphic*); 


}; 


//  An  BFillCircle  knows  when  NOT  to  draw  itself. 

class  IFillCirclc  :  public  FillCircle  { 
public: 

IRllCircle(Coord,  Coord,  int.  Graphic*  wnil); 
protected: 

boolean  contains(PointObj&,  Graphic*); 
boolean  inters ects(BoxObj&,  Graphic*); 
void  draw(Canvas*,  Graphic*); 


#cndif 


ienipses.c 


#includc  "icllipscs.h" 

#include  "ipainth" 

//  IFillEUipsc  passes  its  arguments  to  FillEllipsc. 

IFillEllipsc::IFillEllipse  (Coord  xO,  Coord  yO,  int  rx,  int  ry.  Graphic*  gs) 
:  (xO,  yO.  rx,  ry,  gs)  { 

) 

//  contains  returns  true  if  the  IFillEilipse  contains  the  given  point 
//  unless  the  pattern  is  the  "none"  pattern. 

boolean  IFillEilipse: :contains  (PointObj&  po.  Graphic*  gs)  1 
boolean  contains  *  false; 

IPattem*  pattern  « (IPattem*)  gs->GctPattemO; 
if  (lpattcm->NoncO)  { 
contains  =FillEllipsc::contains(po,  gs); 

) 

return  contains; 

I 
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//  intersects  returns  true  if  the  IFillEtlipse  intersects  the  given 
//  box  unless  the  pattern  is  the  "none"  pattern. 

boolean  IFillEUipse::intersects  (BoxObj&  userb.  Graphic*  gs)  { 
boolean  intersects  =  false; 

IPattem*  pattern  =  (IPattem*)  gS“>GctPattcm(); 
if  (!pattem->Nonc())  | 
intcisects  =  FillElIipsc:dntcrsects(uscrb,  gs); 

} 

return  intersects; 

) 

//  draw  draws  the  IFillEllipse  unless  the  pattern  is  the  "none"  pattern. 

void  IFillEllipse:  :draw  (Canvas*  c,  Graphic*  gs)  { 

IPattem*  pattern  »  (IPattem*)  gs->GetPattem(); 
if  (!pattem->NoncO)  { 

FilIEllipse::draw(c,  gs); 

} 

) 


//  IFillCircle  passes  its  arguments  to  FillCirclc. 

IFillCirclcrJFillCirclc  (Coord  xO,  Coord  yO,  int  r,  Graphic*  gs) 

;  (xO,  yO,  r,  gs)  { 

I 

//  contains  returns  trae  if  the  IFillCircle  contains  the  given  point 
//  unless  the  pattern  is  the  "none"  pattern. 

boolean  IFillCircle: :contains  (PointObj&  po.  Graphic*  gs)  { 
boolean  contains  s:  false; 

IPattem*  pattern  *=  (IPattem*)  gs->GetPattcm(); 
if  (!pattem->None())  { 
contains  FillCirclc: :contains(po,  gs); 

} 

return  contains; 


I  I  intersects  returns  true  if  the  IRIlCirclc  intersects  the  given  box 
//  unless  the  pattern  is  the  "none"  pattern. 

boolean  IFillCircle: nntersccts  (BoxObj&  userb,  Graphic*  gs)  { 
boolean  intersects  s  false; 

IPattem*  pattern  =  (IPattem*)  gs->GctPattcm(); 
if  (!pattcm->Nonc())  { 
intcisects  =  FillCircle:nntcrsccts(userb,  gs); 

) 

return  intersects; 

) 


//  draw  draws  the  IFillCircle  unless  the  pattern  is  the  "none" 
//  pattern. 

void  IFillCircle: :draw  (Canvas*  c.  Graphic*  gs)  { 

IPattem*  pattern  ==  (IPattem*)  gs->GctPattcm(); 
if  (!pattcm->NoncO)  I 
FilICirclc::draw(c,  gs); 

) 

I 


ilines.h 


#i6idef  ilines_h 
#dcfinc  ilines_h 

#include  <IntcrViews/Graphic^olygonsJh> 

//  An  DnllMultiLine  knows  when  NOT  to  draw  itself. 

class  DnllMultiLine :  public  FillPolygon  { 
public: 

IFiIIMultiLine(Coord*,  Coord*,  int.  Graphic*  *  nil); 


protected: 

boolean  contains(PointObj&,  Graphic*); 
boolean  intersccts(BoxObj&»  Graphic*); 
void  draw(Canvas*,  Graphic*); 


#endif 

ilines.c 

#includc  '*ilines.h‘* 

#include  "ipainth" 

//  IFillMultiLinc  passes  its  arguments  to  FillPolygon. 

IFiIlMultiLinc::IFinMuItiLine  (Coord*  a.  Coord*  y»  int  n.  Graphic*  gs) 

:  (x,  y,  n,  gs)  { 

} 

//  contains  returns  true  if  the  IFillMultiLine  contains  the  given  point 
//  unless  the  brush  is  an  arrow  or  the  pattern  is  the  "none"  pattern. 

boolean  IFillMultiLine:;contains  (PointObj&  po.  Graphic*  ^)  { 
boolean  contains  -  false; 

IBrush*  brush  =  (IBrush*)  gs->GetBmsh(); 

IPattem*  pattern  =  (IPattem*)  gs->GetPattcm(); 

if  (!brush->LeftArrow()  &&  !brtish->RightArrow()  &&  !pattem->None())  { 
contains  =RIlPoIygon::contains(po,  gs); 

return  contains; 

) 


//  intersects  returns  true  if  the  IFillMultiLine  intersects  the  given 
//  box  unless  the  brush  is  an  arrow  or  the  pattern  is  the  "none" 

//  pattern, 

boolean  IFillMultiLine:  nntersects  (BoxObj&  userb,  Graphic*  gs)  { 
boolean  intersects  =  false; 

IBrush*  bitish  -  (IBrtish*)  gs->GetBrush(); 

IPattem*  pattern  =  (IPattem*)  gs->GetPattcm(); 

if  (!brash->LcfLArrow()  &&  !brush->RightArrow()  &&  !pattem->None())  { 
intersects  =  FillPolygon :nntersects(uscrb,  gs); 

} 

return  intersects; 

} 

//  draw  draws  the  IFillMultiLine  unless  the  brush  is  an  arrow  or  the 
//  pattern  is  the  "none"  pattern  (a  IFillPolygon  wouldn’t  have  cared 
//  about  the  brush  being  an  arrow). 

void  IRllMultiLine::draw  (Canvas*  c,  Graphic*  gs)  | 

IBrush*  brush  =  (IBrush*)  gs->GetBrush(); 

IPattem*  pattern  =  (IPattem*)  gs->GetPattem(); 

if  (!bmsh->LeftArrow()  &&  !brush->RightArrow()  &&  !pattem->NoneO)  { 
FillPolygon::draw(c,  gs); 

) 

I 


ipainLh 

#ifndef  ipaint_h 
#define  ipaint_h 

#include  <interViewsAjraphic^paint.h> 

//  An  IBrush  knows  how  to  test  for  its  noneness  and  get  its  line 
//  pattern,  width,  arrows,  and  dash  pattern. 

class  IBrush  :  public  PBrush  { 
public: 

IBrushO; 

IBmsh(int,  int,  boolean,  boolean); 

boolean  Nonc(); 
int  GetLinePattemO; 
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int  WidthO; 
boolean  LeftArrowO; 
boolean  RightArrowO; 
const  int^  GctDashPattem(); 
int  GetDashPattcmSizeO; 
int  GctDashOffsctO; 
operator  Brush^Q; 

protected; 

void  CalcDashPat(int); 

boolean  leftarrow;//  stores  tnic  if  line  starts  from  an  arrowhead 
boolean  rightarrow;//  stores  true  if  line  ends  in  an  arrowhead 
int  dashpat[pattcm Width];// stores  dash  pattern 
int  dashpatsize;//  stores  number  of  defined  elements  in  dashpat 
int  dashoffset;// stores  dash  pattern’s  offset 


//Define  inline  access  functions  to  get  members'  values. 

inline  boolean  IBrashid^one  ()  { 
return  (value  s=as  nil); 

) 


inline  boolean  IBrash;icftArTow  Q  { 
return  leftarrow; 

} 

inline  boolean  IBrush::Ri^tArrow  ()  | 
return  rightarrow; 

} 

inline  int  IBrush::GetLinePattcm  ()  { 
return  p; 

} 

inline  const  int*  IBrush;:GctDashPattcm  ()  { 
return  dashpat; 

} 

inline  int  EBrush::GetDashPattcmSize  0  { 
return  dashpatsize; 

} 

inline  int  IBrushrrGetDashOfIset  ()  { 
return  dashoffset; 

) 


inline  IBrush:;operator  Brush*  ()  { 
return  value; 

I 

//  An  IColor  knows  how  to  get  its  name. 

class  IC!olor  :  public  PColor  { 
public: 

IColor(const  char*); 

IColoKint,  int,  int,  const  char*); 

IColor(Color*,  const  char*); 

-ICoIorO; 

const  char*  GetNamef); 
operator  Color*0; 

protected: 

char*  name;//  stores  name  passed  into  constructor 


I; 

//  Define  inline  access  functions  to  get  members'  values, 
inline  const  char*  IColor::GctNamc  ()  { 


return  name; 


inline  IColor::operator  Color*  ()  | 
return  value; 

} 

//  An  IFont  knows  how  to  get  its  name,  print  font,  and  print  size. 

class  IFont :  public  PFont  { 
public: 

IFont(const  char*,  const  char*,  const  char*); 

--IFontO; 

const  char*  GetNarneQ; 
const  char*  GetPrintFontQ; 
const  char*  GctPrintSizcO; 
const  char*  GetPrintFontAndSizc(); 
int  GetLincHtO; 
operator  Font*0; 

protected: 

const  char*  InltciNamc(const  char*); 

char*  printfont;//  stores  name  of  font  used  by  printer 
char*  printsize;//  stores  scale  of  font  used  by  printer 
char*  printfontandsize;//  stores  name  and  size  separated  by  a  blank 
int  lineHt;//  stores  printsize  converted  to  int 


//  Define  inline  access  functions  to  get  members'  values. 

inline  const  char*  IFont:  iGetName  ()  { 
return  name  ?  name  :  "stdfont”; 

I 


inline  const  char*  IFont: :GctPrintFont  0  { 
return  printfont; 

) 


inline  const  char*  IFont: :GctPrintSizc  ()  { 
return  printsize; 

) 


inline  const  char*  IFont:  :GetPrintFontAndSizc  ()  { 
return  printfontandsize; 

} 

inline  int  IFont:  :GctLineHt  ()  { 
return  lineHt; 

) 

inline  IFont::operatorFont*  ()  j 
return  value; 

1 

//  An  IPattem  knows  how  to  test  for  its  noneness  or  fullness  and  get 
//  its  dither,  data,  and  gray  level. 

class  IPattem  :  public  PPattem  { 
public: 

IPattem  0; 

IPattem  (int,  float); 

IPattem  (int  pattem(pattemHcight],  int); 

boolean  NoncQ; 
float  GetGrayLcvelO; 
const  int*  GetData(); 
int  GetSizeO; 
operator  Pattcm*0; 


protected: 


float  graylevel;//  stores  gray  level  for  grayscale  patterns 
int  size;// stores  pat's  orig  size  (4x4,  8x8,  or  16x16) 


); 


//Define  inline  access  functions  to  get  members'  values. 

inline  boolean  IPattcmriNonc  ()  { 
return  (value  =«=  nil); 

} 

inline  float  IPattem::GctGrayLevel  0  { 
return  graylevel; 

} 


inline  const  int*  IPattcm::GetData  ()  { 
return  data; 

) 

inline  int  IPattem::GetSize  ()  { 
return  size; 

} 


inline  IPattcm;:opcrator  Pattern*  ()  { 
return  value; 

) 

#endif 


ipainLc 

#include  "ipainth" 

#includc  "istring.h" 

#include  <stdlibJi> 

II  IBmsh  creates  the  brush.  Calling  IBrush  with  no  arguments  creates 
//  the  "none"  brush. 

IBrush:;lBrush  () :  0  ( 
leftarrow  =  false; 
rightarrow  =  false; 

CalcDashPat(Oxfflf); 

) 

IBrush  ::1B  rush  (int  p,  int  w,  boolean  1,  boolean  r) :  (p,  w)  | 
leftarrow  =  1; 
rightarrow  =  r; 

CalcDashPat(p); 

) 


//  Width  overrides  PB  rush  “Width  when  PB  rush’s  value  is  the  predefined 
//  brush  single  because  single  cannot  be  trusted  to  return  1.  It 
//  might  return  0  because  the  X  implnnentation  might  support  only  a 
//  fast,  device“d<^)cndcnt  brush,  not  the  standard  single-width  brush. 

int  EBmsh-Width  0  { 
int  width  =  PBrush::WidthO; 
if  (value  =  single)  { 
width  =  1 ; 


return  width; 

} 

//  CalcDashPat  calculates  and  stores  the  Postscript  dash  pattern 
//  corresponding  to  the  brush's  line  pattern. 

void  IBrush;:C}alcDashPat  (int  linq)at)  { 

linepat  OxfTff;//  mask  should  always  match  pattemWidth 

if  (linq>at «  0x0000)  {  //  clear  bnish 

dashpatsize  ^  0; 
dashoffset  =  -l; 

1  else  if  (linepat  ■=*  Oxffff)  {  //solid  bmsh 
dashpatsize «« 0; 
dashoffset »  0; 
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}  else  if  (linqwt  *=*  0x5555)  {  //  dotted  brush,  store  1  element  not  16 
dashpat[0]  -  1; 
dashpatsize^  1; 
dasho^set  =  1; 

}  else  if  (linepal  =  Oxaaaa)  {  //  dotted  brush,  store  1  clement  not  16 
dashpat(O)  =  1; 
dashpatsize  =  1 ; 
dashoffset  =  0; 

I  else  { 
inti  =  0; 

while  (!((linepat  « i)  &  0x8000))  { 

++i; 

} 

dashoffset  =  pattcmWidth  -  i  +  1; 
int  j  0; 

boolean  currentran  =  true; 
int  length  ~  0; 

for  (int  k  =  0;  k  <  pattemWidth;  k++)  { 
if  ((((linepat « i)  &  0x8000)  !=  0)  =  currentrun)  { 

++lcngth; 

}  else  { 

dashpat[j++]  =  length; 
currentmn  « Icurrcntrun; 
length  =  1; 

} 

i  >  (i  pattcmWidth)  ?  0  :  i  +  1; 

} 

if  (length  >  0)  { 
dashpatUl « length; 

I 

dashpatsizc  =  j  +  1; 

I 


const  int  Postscriptdashlimit  =11; 
if  (dashpatsize  >  Postscriptdashlimit)  { 
fprintf(stdciT,  "Brush  dash  pattern  0x%x  exceeds  maximum  ",  linepat); 
fprintf(stderr,  "length  of  Postscript  dash  pattern  with  "); 
fprintf(stdcrr,  "%d  elements,  troncated  to  ",  dashpatsize); 
fprintf(stdcrr,  "%d  elcmcntsNn",  Postscriptdashlimit); 
dashpatsize  =  Postscriptdashlimit; 

} 

1 


//  IColor  creates  the  named  color  and  stores  its  name. 

ICoIor::IColor  (const  char*  n) :  (n)  | 
name  =  strdup(n); 

} 


//  IColor  creates  the  color  using  the  given  intensities  and  stores  its 

//  "name". 

IColor: rIColor  (int  r,  int  g,  int  b,  const  char*  n) :  (r,  g,  b)  { 
name  =  strdup(n); 

} 

//  IColor  stores  the  given  color  and  its  "name". 

IColor:*JColor  (Color*  color,  const  char*  n)  | 
value  =  color, 
value-  >Rcf crenceO ; 
name  =  strdup(n); 

} 

//  Free  storage  allocated  for  the  name. 

I01or::-ICo!or  0  I 
delete  name; 

) 


//  IFont  creates  the  named  font  and  stores  the  print  font  and  size. 

IFont::IFont  (const  char*  name,  const  char*  pf,  const  char*  ps) 

;  (FiltcrNamc(namc))  | 
printfont  *  strdup(pO; 


printsize  =  strdup(ps); 

printfontandsize  =  new  charlstrlcn(pf)  +  1  +  strlen(ps)  +  1]; 

strcpy(printfontandsizc,  pf); 

strcat(printfontandsizc, " 

strcat(printfontandsize,  ps); 

lincHt  ss  atoi(ps); 

} 


//  Free  storage  allocated  for  the  print  font  and  size. 

IFont::-IFont  0  I 
delete  printfont; 
delete  printsize; 
delete  printfontandsize; 

} 


//  FiltcrName  filters  the  name  to  ensure  "stdfont"  does  not  pass 
//  through  to  PFont  without  being  converted  to  nil. 

const  char*  IFont::FiltcrName  (const  char*  name)  { 
if  (strcmp(name,  "stdfont")  =  0)  { 
name  =  nil; 

1 

return  name; 

) 

//  IPattem  creates  the  pattern.  Calling  IPattem  with  no  arguments 
//  creates  the  "none"  pattern,  calling  IPattem  with  an  integer 
//  creates  a  pattern  from  a  4x4  bitmap,  calling  IPattem  with  an  array 
//  and  the  actual  size  creates  a  pattern  from  a  16x16  bitmap  that  may 
//  have  originally  been  8x8,  and  calling  IPattem  with  an  integer  and 
//  a  float  creates  a  grayscale  pattern  from  a  4x4  bitmap. 

IPattem  ::IPattcm  ():(){ 
graylcvel  =  -l; 
size  ss  0; 

} 

IPattcm::IPattcm  (int  dither,  float  g) :  (dither)  { 
graylevcl  =  g; 
size  =  0; 

I 

IPattcm:;IPattem  (int  data[pattemHeight],  int  s) :  (data)  { 
graylcvel  =  -1; 
size  =  s; 

} 


ipolygons.h 


#ifiidef  ipolygons_h 
#definc  ipolygons_h 

#includc  <InterViewsAjraphic^olygons.h> 

//  An  IFillRect  knows  when  NOT  to  draw  itself. 

class  IFillRect ;  public  RllRect  { 
public: 

IFillRcct(Coord,  Coord,  Coord,  Coord,  Graphic*  *  nil); 
protected: 

boolean  contains(PointObj&,  Graphic*); 
boolean  intcisccts(BoxObj&,  Graphic*); 
void  draw(Canvas*,  Graphic*); 

); 


//  An  IFillPoIygon  knows  when  NOT  to  draw  itself. 

class  IFillPoIygon  :  public  FillPolygon  { 
public: 


IRlIPoIygon (Coord*,  Coord*,  int.  Graphic*  =  nil); 
protected: 

boolean  contains(PomtObj&,  Graphic*); 
boolean  intcrsccts{BoxObj&,  Graphic*); 
void  draw(Canvas*,  Graphic*); 


#endif 


ipolygons.c 


#include  "ipainth" 

#include  ’'ipolygons.h" 

//  IFillRect  passes  its  arguments  to  FillRect 

EFillRectrJFillRect  (Coord  xO,  Coord  yO,  Coord  xl.  Coord  yl.  Graphic*  gs) 
:(x0,  yO,  xl,yl,gs)  { 


//  contains  returns  true  if  the  IRllRcct  contains  the  given  point 
//  unless  the  pattern  is  the  "none"  pattern. 

boolean  IFillRect;: contains  (PointObj&  po.  Graphic*  gs)  { 
boolean  contains  =  false; 

IPattem*  pattern  =  (IPattem*)  gs->GetPattemO; 
if  (!pattem->None())  { 
contains  =FillRect::contains(po,  gs); 

) 

return  contains; 

) 


//  intersects  returns  true  if  the  IFillRect  intersects  the  given  box 
//  unless  the  pattern  is  the  "none"  pattern. 

boolean  IFillRect:  :intersects  (BoxObj&  userb,  Graphic*  gs)  { 
boolean  intersects  =  false; 

IPattem*  pattern  =  (IPattem*)  gs->GetPattem(); 
if  (lpattem->NoneO)  { 
intersects  =  FillRcct:nntersccts(uscrb,  gs); 

I 

return  intersects; 


//  draw  draws  the  IRllRcct  unless  the  pattern  is  the  "none"  pattern. 

void  IFillRect: :draw  (Canvas*  c.  Graphic*  gs)  { 

IPattem*  pattern  =  (IPattem*)  gs->GctPattem(); 
if  (!  pattern ->None())  { 

FillRect::draw(c,  gs); 

} 

} 


//  IRllPolygon  passes  its  arguments  to  RllPolygon. 

IRllPolygon:  JFillPolygon  (Coord*  x.  Coord*  y,  int  n,  Graphic*  gs) 
:  (x,  y,  n,  gs)  { 

} 

//  contains  returns  true  if  the  IRllPolygon  contains  the  given  point 
//  unless  the  pattern  is  the  "none"  pattern. 

boolean  IFillPolygon::contains  (PointObj&  po.  Graphic*  gs)  { 
boolean  contains  «=  false; 

IPattem*  pattern  =  (IPattem*)  gs->GetPattem(); 
if  (!pattem->None())  | 
contains  ss  FillPolygon::contains(po,  gs); 

I 

return  contains; 

I 


//  intersects  returns  true  if  the  IFillPolygon  intersects  the  given 
//  box  unless  the  pattern  is  the  "none"  pattern. 
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boolean  IFillPolygonrnntersects  (BoxObj&  useib.  Graphic*  gs)  { 
boolean  intersects  =  false; 

IPattem*  pattern  =  (IPattem*)  gs->GetPattcmO; 
if  (lpattem->NoneO)  { 

intellects  =  FillPolygon:nintersccts(userb,  gs); 

I 

return  intersects; 

I 

//  draw  draws  the  IFillPolygon  unless  the  pattern  is  the  "none" 

//  pattern. 

void  IFillPolygon ;:draw  (Canvas*  c.  Graphic*  gs)  { 

IPattem*  pattern  =  (IPattem*)  gs->GcfPattem(); 
if  (!  pattern ->None())  | 

FillPolygon::draw(c,  gs); 

) 

} 


ispline&h 

#ifhdef  isplines_h 
#dcfine  isplincs_h 

#include  <intcr\^ews/Graphic/splines.h> 

//  An  IRllBSpline  knows  when  NOT  to  draw  itself. 

class  DPillBSpline  :  public  FillBSpline  { 
public: 

IFillBSplinc(Coord*,  Coord*»  int.  Graphic*  ssnil); 
protected: 

boolean  contains(PointObj&,  Graphic*); 
boolean  intersects(BoxObj&,  Graphic*); 
void  draw(Canvas*»  Graphic*); 


//  An  IFillQosedBSplinc  knows  when  NOT  to  draw  itself, 

class  IFillClosedB Spline  :  public  FillBSpline  { 
public: 

IRllClosedBSpline(Coord*,  Coord*,  int.  Graphic*  =  nil); 
protected: 

boolean  contains(PointObj&,  Graphic*); 
boolean  inteisects(BoxObj&,  Graphic*); 
void  draw(Canvas*,  Graphic*); 


1; 


#cndif 


ispline$.c 


fdefine  ^POSDC.SOURCE 
#include  "ipainth" 

#includc  "isplincs.h" 
fincludc  <IntcrVicws/StdAnath.h> 

#include  <InterVicwsAjraphicAJtilii> 

//  IFillBSpline  repeats  the  first  and  last  points  three  times  to 
//  ensure  that  the  spline  will  pass  throu^  the  first  and  last  points. 

IFillBSpline: '.IFillBSpline  (Coord*  ax,  Coord*  ay,  int  n.  Graphic*  gs) 
:  (ax.  ay.  n,  gs)  { 
delete  x; 
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delete  y; 
count  =  n  +  4; 

X  -  new  Coord  [count]; 

y  «  new  Coord  [count]; 

x[0]  =  ax[0]; 

x[l]-ax[0]; 

x[count  - 1]  =  ax[n  - 1]; 

x[count  -  2]  ax[n  - 1]; 

y[0]  =  ay[0]; 

y[l]  =  ay[0]; 

y[count  “  1]  =  ay[n  - 1]; 

y  [count  “  2]  =  ay[n  - 1]; 

CopyArray(ax,  ay»  n,  &x[2],  &y[2]); 

I 


//  contains  returns  true  if  the  IFillBSpline  contains  the  given  point 
//  unless  the  brush  is  an  arrow  or  the  pattern  is  the  "none"  pattern. 

boolean  IFillBSpline:  :contains  (PointObj&  po,  Graphic*  gs)  { 
boolean  contains  s  false; 

IB  rush*  brush  -  (IBrush*)  gs->GetBrush(); 

IPattem*  pattern  =  (IPattem*)  gs->GetPatteni(); 

if  (!brush->LeftAiTow()  &&  !brush->RightArrow()  &&  !pattem->None())  { 
contains  =FillBSp  line:  :contains(po,  gs); 

I 

return  contains; 

) 


//  intersects  returns  true  if  the  IFillB Spline  intersects  the  pvea 
fl  box  unless  the  brush  is  an  arrow  or  the  pattern  is  the  "none" 

//pattern. 

boolean  IFillBSpline: rintersects  (BoxObj&  userb.  Graphic*  gs)  ( 
boolean  intersects  =  false; 

IBrush*  brush  =  (IBrush*)  gs->GetBrush(); 

IPattem*  pattern  =  (IPattem*)  gs->GetPattcm(); 

if  (!brush->LeftArrow()  &&  !brush->RightArrow()  &&  !pattem->None())  { 
intersects  =  FillBSplinc::intcrsccts(userb,  gs); 

) 

return  intersects; 

} 


//  draw  draws  the  IRllBSpline  unless  the  bmsh  is  an  arrow  or  the 
//  pattern  is  the  "none"  pattern. 

void  IFillBSpline: :draw  (Canvas*  c,  Graphic*  gs)  { 

IBrush*  brush  =  (IBrush*)  gs->GetBmsh(); 

IPattem*  pattern  =  (IPattem*)  gs->GctPattcm(); 

if  (!bmsh->LeftAiTow()  &&  !brush->RightAiTowO  &&  !pattcm->None())  { 
FillBSpline::draw(c,  gs); 

) 

1 


//  IFillCHosedBSpline  passes  its  arguments  to  FillBSplinc. 

IFillClosedBSpline:  JFiliaosedBSpIine  (Coord*  x,  Coord*  y,  int  n.  Graphic*  gs) 
:  (x,  y.  lu  gs)  { 

I 

//  contains  returns  troe  if  the  IFillClosedBSpline  contains  the  given 
If  point  unless  the  pattern  is  the  "none"  pattern. 

boolean  IFillCloscdBSplinc::contains  (PointObj&  po.  Graphic*  gs)  { 
boolean  contains  false; 

IPattem*  pattern  =  (IPattem*)  gs->GetPattem(); 
if  (!pattcm->None())  { 
contains  =FillBSplinc::contains(po,  g$); 

} 

return  contains; 

I 

//  intersects  returns  true  if  the  IFillClosedBSpline  intersects  the 
//  given  box  unless  the  pattern  is  the  "none"  pattern. 

boolean  IFiliaoscdBSpline:nntcrsects  (BoxObj&  useib.  Graphic*  gs)  { 
boolean  intersects  «  false; 
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IPattcm*  pattern  « (IPattem*)  gs->GctPattem(); 

if  (lpattem->NoncO)  { 

intersects  «  FiUBSplinc::intersccts(userb»  gs); 

} 

return  intersects; 

} 


//  draw  draws  the  IFillClosedB  Spline  unless  the  pattern  is  the  ‘'none*' 
//  pattern. 

void  IKIlCIosedBSpline::draw  (Canvas*  c.  Graphic*  gs)  { 

Il^ttcm*  pattern  =  (IPattem*)  gs->GctPattcm(); 
if  (!  pattern ->Nonc())  { 

FillBSplinc::draw(c,  gs); 

I 

) 


i$tring.h 

#ifiidef  istring_h 

#dcfine  istring_h 

#includc  <string.h> 

//  mnoves  improper  characters  from  a  char  string 

char*  RemovcBadChars(char*); 

int  Length  WithoutChars(char*,  char*); 

//  create  tempoary  file  name  by  retrieving  environment  variable 

//  TEMP  and  concantenating  the  filename  onto  it. 

char*  MakcTmpFilcNamc(char*); 

//  strdup  allocates  and  returns  a  duplicate  of  the  given  string. 

inline  char*  strdup  (const  char*  s)  { 
char*  dup  =s  new  char[strlcn(s)  +  1]; 
strcpy(dup,  s); 
return  dup; 

} 

//  stmdup  allocates  and  returns  a  duplicate  of  the  first  I«i 

//  characters  of  the  given  string. 

inline  char*  stmdup  (const  char*  s,  int  len)  { 
char*  dup  =  new  charflcn  +  1); 
stmcpy(^p,  s,  len); 
dupflen]  -  \0’; 
return  dup; 

} 

#endif 


istring.c 

#include  "istring.h*' 

#includc  <lnter^ews/defs.h> 

extern  "C" 

{ 

extern  char  *gctenv(char  *); 

I 

char*  RcmovcBadChars(char*  string)  { 

int  newjcn  =  Length WithoutChars(string,  "  \n"); 

int  old^len  =  strlen(string); 

char*  modified_string  »  new  char[oldJen  +1]; 

if  (new__len  <  old_lcn)  { 

int  m_ctr  =  0; 

for  (int  i  «  0;  i  <  oldjen;  ++i)  { 
if  (string[i] !-  "Sn'  &&  string(i]  1=  ")  { 
modified_string(m_ctrf+]  =  stringHl; 

I 

} 

modified_string(m_ctr] «  NO'; 
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else  { 

strcpy  (modi  fied_string^trmg) ; 

) 

rctom  modificd_string; 

I 


int  Length WithoutChars(char*  string,  char*  unwanted_chan5)  { 

int  size  =  strlen(unwantcd_chars); 

int  string_sizc  *=  strlcn  (string); 

int  no_of_chars  =  0; 

for  (int  i  =  0;  i  <  size;  ++  i)  { 

for  (int  j  =  0;  j  <  string^size;  ++j)  { 

if  (stringlj]  =*s  unwanted_chais[i])  { 

++no_of_chars; 

} 


return  string_sizc  -  no_of_chars; 

I 

//  make  temporary  filoiame  by  concatenating  the  environment  variable 
//  TEMP  with  the  given  filename 

char*  MakeTmpFileNamc(char*  filename)  ( 
char*  tmp_dir  -  (char*)  getenvCTEMF'); 
char*  result; 

if  (tmp_dir  l«nil)  { 

int  tmp_leo  =  strlen(tmp_dir); 

result  =  new  char[tmp_lcn  +  stricn  (filename)  +  2]; 

strcpy(result,  tmp_dir); 

if(tmp_dir[tmpjen  ■■  1]  !  =  7)  { 

strcat(result,  **r)\ 

} 

strcat(  result,  filename); 

) 

else  I 

result  =  filename; 

) 

return  result; 

} 


keystrokes.h 


static  const  char  SELECTCHAR  =  *s*; 
static  const  char  MOVECHAR  =  'm'; 

static  const  char  STATES CTIAR  =  'X'; 

static  const  char  EXCEPTCHAR  »\005’;  //'^E'; 
static  const  charKEYWORDCHAR  =  IC'; 
static  const  char  LABELCHAR  ■=  TL'; 

static  const  char  LATENCYCHAR  * 

static  const  char  ITCHAR  “  "F; 

static  const  char  BYALLCHAR  « 'A'; 

static  const  char  B  YSOMECHAR  *  T'; 


static  const  char  RESET_TIMERCHAR 
static  const  char  START_TIMERCHAR 
static  const  char  STOP_'nMERCHAR 
static  const  char  INFORMALCZHAR 
static  const  char  FORMALCHAR 


static  const  char  HOTJRCTHAR  =  IT; 

static  const  char  MINUTECHAR  =  'N'; 
static  const  char  SECONDCHAR  =  'S*; 
static  const  char  MILSECCHAR  ■=  'M'; 
static  const  char  MICSECCHAR  »  ‘C'; 

static  const  char  LHOURCHAR  “  T  ’; 
static  const  char  LMINUTECTIAR  7'; 

static  const  char  LSECONDCTIAR  =  *3'; 
static  const  char  T  .MTT  5?F.C!CTHA  R  « '4'; 


static  const  char  LMICSECCHAR 


=  '5’; 

static  const  char  INTEGERCHAR  =  H'; 
static  const  char  REALCHAR  -  V; 

static  const  charBOOLEANCHAR  =  V; 
static  const  char  USERDEFINEDCHAR  =  ‘u'; 

//static  const  char  STRETCHCHAR= 
static  const  char  MODIFY CHAR=  'q’; 
static  const  char  DECOMPOSECHAR  =  D’; 
static  const  char  COMMENTCHARss  T'; 
static  const  char  BSPLINECHAR=  'h*; 
static  const  char  ELLIPSECHAR=  'o'; 
static  const  char  RECTCHAR=  'r‘; 

//  You  can  execute  a  PullDownMcnuCommand  by  typing  one  of  these 
//  characters. 

static  const  char  NEWCHAR=  ^01 6';  // 
static  const  char  REVERTCHAR-  V)22’;  //^K 
static  const  char  OPENCHAR=  'SO IT;  //^O 
static  const  char  SAVECHAR=  ^D23’;  // 
static  const  char  SAVEASCHAR-  NDOl';  //^A 
static  const  char  PRINTCHAR=  V)20';  //  '^P 
static  const  char  QUITCHAR-  \02r;  // 

static  const  char  UNDOCHAR^  TJ’; 
static  const  char  REDOCHAR=  *R’; 
static  const  char  DELETECHAR=  \004';  //^D 
static  const  char  SELECTALLCHAR-  'a'; 

static  const  char  REDUCECHAR*=  T; 

static  const  charENLARGECHAR-  ’e‘; 

static  const  char  NORMALSIZECHAR-  'll'; 

static  const  char  REDUCETOFITCHA  R=  ; 

static  const  char  QENTERPAGECHAR= 

static  const  char  REDRAWPAGECHAR-  >014';  //  '^L 

static  const  char  GRIDDINGONOFFCHAR- 

static  const  char  GRIDX^SIBIEINVISIBLECHAR  = '?'; 

static  const  char  GRIDSPACINGCHAR=  'T; 

static  const  char  ORIENTATIONCHAR= 

static  const  char  SHOWVERSIONCHAR-  '$'; 

listh 

#ifndef  list_h 
#dcfinc  list_h 

#include  <InterVicws/dcfsJi> 

//  A  BaseNode  contains  links  to  its  previous  and  next  BaseNodcs. 

//  BaseLists  can  link  BascNodcs  to  each  other  to  form  lists  of 
//  BaseNodes. 

class  BaseNode  { 

friend  class  BaseList; 

public: 

BaseNodeQ; 
virtual  '-BaseNodeO; 

virtual  boolean  SameValucAsfvoid*); 

protected: 

private: 

BaseNode*  prev;//  points  to  previous  BaseNode  in  list 
BaseNode*  next;//  points  to  next  BaseNode  in  list 

1; 

//  A  BaseList  maintains  and  iterates  through  a  list  of  BaseNodcs. 


class  BaseList  ( 
public: 


BaseListO; 

-BascIistO; 

int  Sizc(); 
boolean  AtEndQ; 

BaseNode*  First(); 

BascNode*  LastQ; 

BascNodc*  PrevQ; 

BascNodc*  NcxtQ; 

BascNode*  GctCurQ; 

BaseNode*  Index(int); 
boolean  Find(void*); 

void  AppetidCBascNodc*); 
void  Prepcnd(BascNodc*); 
void  InscrtAftcrCm^ascNodc*); 
void  InscrtBeforcCur(BascNode*); 

void  RanovcCurO; 
void  DcleteCur(); 
void  DelctcAlIO; 

private: 

BaseNode*  head;//  points  to  dummy  head  of  circular  list 
BascNode*  cur,//  points  to  current  node  of  circular  list 
,  int  size;//  stores  number  of  non-dummy  nodes  in  list 


//  Size  returns  the  number  of  non-dummy  nodes  in  a  list. 

inline  int  BaseList::Size  0  I 
return  size; 

} 

//  AtEnd  returns  true  if  the  current  node  is  the  dummy  node. 

inline  boolean  BascList::AtEnd  ()  { 
return  cur  =  head; 

} 

//  First  returns  the  first  node  in  a  list  (or  the  head  if  it's  «npty) 

//  and  sets  the  current  node  to  that  node. 

inline  BaseNodc*  BaseListidFirst  0  { 
cur  =  head->next; 
return  cur, 

} 

//  Last  returns  the  last  node  in  a  list  (or  the  head  if  it's  empty) 

//  and  sets  the  current  node  to  that  node. 

inline  BascNode*  BaseList:L.ast  ()  { 
cur  ss  hcad->prcv; 
return  cur, 

} 

if  Prev  returns  the  node  before  the  current  node  and  sets  the  current 
//  node  to  that  node. 

inline  BascNode*  BascList::Prcv  Q  I 
cur  *  cur->^rev; 
return  cur; 

) 

if  Next  returns  the  node  after  the  current  node  and  sets  the  current 
//  node  to  that  node. 

inline  BascNode*  BascList::Ncxt  0  I 
cur  «cur->ncxt; 
return  cur, 

I 

//  GetCur  returns  the  current  node  in  a  list 


inline  BascNode*  BascList::GetCur  ()  { 
return  cur, 

I 

#cndif 


Mstc 


#include  "lisuh" 

//  BascNode  zeroes  its  pointers. 

BascNodc:*3aseNodc  ()  { 
prev  =s  nil; 
next  -  nil; 

I 


BascNodcii-BaseNodc  ()  { 

//  no  storage  allocated  by  base  class 

) 

//  SameValucAs  returns  true  if  this  class  contains  a  data  member  of 

//  any  pointer  type  that  has  the  same  value  as  the  given  pointer. 

boolean  BascNodc::SameValucAs  (void*)  { 

//  base  class  contains  no  data  members 
return  false; 

} 


//  BaseList  starts  with  only  a  header  node. 

BaseList::BascList  0  { 

cur  =  head  =  new  BascNode; 
hcad“>prev  =  hcad->next  =  head; 
size  =  0; 

) 


//  -BaseList  destroys  the  list 

BascList::~BascList  ()  { 
DclctcAllO; 
delete  head; 

} 


//  Index  returns  the  node  that  would  be  the  indexed  clement  if  the 
//  list  was  a  C  array  (0  «  first,  1  «  next, size~l  « last)  or  nil 
//  if  the  index  is  out  of  bounds.  Index  sets  the  current  node  to  the 
//  indexed  node  if  it’s  in  the  list;  otherwise,  the  current  node 
//  remains  the  same. 

BascNode*  BaseList:  Jndex  (int  index)  { 

BascNode*  clem  =  nil; 
if  (index  0  &&  index  <  size)  { 
clem  =  hcad->ncxt; 
for  (int  i  =  0;  i  <  index;  i++)  { 
elcm  =  clcm‘>ncxt; 

1 

cur  «=  elem; 

1 

return  elem; 

} 

//  Find  returns  true  if  the  list  contains  a  node  with  a  data  member 
//  whose  value  is  the  same  as  the  given  pointer  or  false  if  there  is 
//  no  sudi  node.  Find  sets  the  current  node  to  that  node  only  if  it 
//  finds  such  a  node;  otherwise,  the  current  node  remains  the  same. 

boolean  BaseList:  J^d  (void*  value)  { 

for  (BascNode*  elem  =  head->next;  clem  !=*  head;  clem  =  clcm->next)  { 
if  (clem->SamcValucAs(valuc))  { 
cur  *>  elem; 
return  true; 

I 


return  false; 
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) 

//  Append  inserts  a  node  after  the  last  node  of  the  list.  The  current 
//  node  remains  the  same. 

void  BascList "Append  (BascNode*  appcndcc)  | 

BascNode*  last «  head->prcv; 
appendce'>prev  sslast; 
appendce->iicxt  -  head; 
hcad->p  rev  =  appcndcc; 
iast->ncxt  =  appcndcc; 

++size; 

} 


//  Prepend  inserts  a  node  before  the  first  node  of  the  list  The 

//  current  node  remains  the  same. 

void  BascList::Prepend  (BaseNodc*  prependee)  { 

BascNodc*  first  =  head->next; 
prepcndcc->prcv  =  head; 
prependec-Miext  =  fiist; 
first->prev  =  prependee; 
hcad->ncxt  =  prependee; 

++size; 

} 

//  InsertAfterCur  inserts  a  node  after  the  current  node  of  the  list 

//  TTic  current  node  remains  the  same. 

void  BascListrJnsertAftcrCur  (BaseNodc*  prependee)  { 
BascNode*  first  =  cur“>next; 
prcpendcc->prcv  =  cur; 
prcpcndcc-;:mcxt  *s  fiist; 
first->prcv  =s  prependee; 
cur->ncxt  =  prependee; 

++sizc; 

} 

//  InsertBcforcCur  inserts  a  node  before  the  current  node  of  the  list 

//  The  current  node  remains  the  same. 

void  BascList:dnscrtBcforcCur  (BaseNode*  appendee)  { 
BascNode*  last  =  cur->prcv; 
appcndcc->prcv  =  last; 
appcndec->ncxt  =  cur; 
cur->prev  e  appoidee; 
last->next  =  appoidcc; 

++sizc; 

} 


//  RemoveCur  removes  the  current  node  of  the  list  (if  it’s  a  node  and 
//  not  the  head)  and  sets  the  current  node  to  the  following  node. 

void  BascList:: RemoveCur  0  I 
if  (cur  !=  head)  | 

BascNode*  before  =  cur“>prcv; 

BaseNode*  after  «  cur->next; 
aftcr->prcv  =  before; 
bcfore->next  s=  after, 
cur  =  after, 

—size; 


//  DcletcCur  deletes  the  current  node  of  the  list  (if  it’s  a  node  and 
//  not  the  head)  and  sets  the  current  node  to  the  following  node. 

void  BascList::DeletcCur  0  I 
if  (cur  1=  head)  { 

BascNode*  before  =  cur->prev; 

BascNode*  after  *=  cur'>ncxt; 
aftcr'>prev  «  before; 
before- >ncxt «  after, 
delete  cur 
cur «»  after, 

—size; 
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) 

} 

//  DeletcAll  deletes  all  the  nodes  of  the  list,  making  the  list  empty 
//  again,  and  sets  the  current  node  to  the  list's  head, 

void  BascList::DeletcAll  ()  { 

BaseNode*  after  «  nil; 

for  (BaseNodc*  doomed  =  head->next;  doomed  !=  head;  doomed  =  after)  { 
after  =  doomed->next; 
delete  doomed; 

cur  =  head; 

head->prcv  =  hcad->next  =  head; 
si2e*0; 

} 


listboolean.h 

#ifiidef  listboolean_h 
#define  Ustboolean_h 

#include  "listh" 

//  A  booleanNodc  contains  a  boolean  value. 

class  booleanNodc  :  public  BaseNodc  { 
public: 

booleanNodc  (boolean  v)  {  value  =  v;  } 
boolean  GetBoolcan  ()  {  return  value;  ) 

protected: 

boolean  value;//  contains  a  boolean  value 


//  A  booleanList  manages  a  list  of  boolcanNodes. 

class  booleanList :  public  BaseList  ( 
public: 

booleanNodc*  First(); 
booleanNodc*  LastQ; 
booleanNodc*  Prcv(); 
booleanNodc*  Ncxt(); 
booleanNodc*  GctCur(); 
booleanNodc*  Indcx(int); 


}; 


//  Cast  these  functions  to  return  boolcanNodes  instead  of  BaseNodcs. 

inline  booleanNodc*  booleanList:  Jnrst  ()  { 
return  (booleanNodc*)  BascUstirPiistO; 

1 


inline  booleanNodc*  booleanList: i^st  0  I 
return  (booleanNodc*)  BaseList: 

) 

inline  booleanNodc*  booleanList:  dPrev  0  i 
return  (booleanNodc*)  BaseList:  JYevQ; 

1 

inline  booleanNodc*  booleanList: :Next  Q  { 
return  (booleanNodc*)  BascList:J'Icxt(); 

} 

inline  booleanNodc*  boolcanList::GctCur  0  1 
return  (booleanNodc*)  BaseList: :GetCuK); 

1 


inline  booleanNodc*  booleanList: :lndex  (int  index)  | 
return  (booleanNodc*)  BaseList::Index (index); 
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#cndif 


listcenter.h 

#ifhdef  listccntcr_h 
#dcfinc  listccntcr_h 

#include  "listh" 

//  A  CcnterNode  contains  two  float  values. 

class  CcnterNode  :  public  BascNode  { 
public: 

CentcrNodc  (float  x,  float  y)  {  cx  =  x;  cy  ~  y;  } 
float  GctCx  0  {  return  cx;  } 
float  GetCy  0  I  return  cy;  } 

protected: 

float  cx,  cy;//  stores  a  position 


1; 


//  A  Coiterlist  manages  a  list  of  CoiterNodcs. 

class  CenterList :  public  BaseList  { 
public: 

CcnterNode*  First(); 

CcnterNode*  Lasl(); 

CcnterNode*  Prev(); 

CwitcrNodc*  NcxtQ; 

CcnterNode*  GctCur(); 

CcnterNode*  Index(int); 


//  Cast  these  functions  to  return  CcntciNodcs  instead  of  BascNodes. 

inline  CaiterNodc*  CentciList:  J^irst  0  { 
return  (CcnterNode*)  BaseList: JFirst(); 

I 


inline  CcnterNode*  CenterList:  :Last  ()  { 
return  (CcnterNode*)  BaseList:  J^stQ; 

1 


inline  CcnterNode*  CenterList:  :Prcv  Q  { 
return  (CraitcrNodc*)  BaseList: :Prev(); 

} 

inline  CcnterNode*  CenterList:  ;Next  ()  { 
return  (CcnterNode*)  BaseList: :Ncxt(); 

I 

inline  Ccnted^lodc*  CenterList:  :GctCur  ()  { 
return  (CcnterNode*)  BaseList: :GctCurO; 

) 


inline  CcnterNode*  CenterList:  :Index  (int  index)  { 
return  (CcnterNode*)  BaseList: :lndex (index); 

I 

#endif 


listchange.h 


#ifhdef  listchange_h 
#dcfine  listchangc^h 


#includc  ’’listh’ 


//  Declare  imported  types. 

class  CenterList; 
class  Drawing; 
class  Drawing  View; 
class  Grouplist; 
class  IB  rush; 
class  IBrushList; 
class  IColor, 
class  ICoiorList; 
class  IFont; 
class  IFontList; 
class  IPattem; 
class  IPattemList; 
class  Selection; 
class  SelectionList; 
class  State; 

//  ChangcNode  stores  a  change  to  the  Drawing  in  reversible  form  and 
//  can  carry  out  or  remove  the  change. 

class  ChangeNode  :  public  BascNode  { 
public: 

ChangeNodeQ; 

ChangeNodc(Drawing*,  DrawingView*»  boolean  =  false); 
-'ChangeNodeQ; 

virtual  void  DoQ; 
virtual  void  UndoQ; 

protected: 

Drawing*  drawing;// performs  operations  on  drawing 
DrawingView*  drawingview;//  displays  drawing 
SelectionList*  oldsl;//  lists  the  old  Selections 


I; 


//  MoveChange  translates  the  Selections. 

class  MoveChange  :  public  ChangeNode  { 
public: 

MovcChange(Drawing*,  DrawingView*,  float,  float); 

void  DoQ; 
void  UndoQ; 

protected: 

float  dx,  dy;//  carries  out  translation 
float  undodx,  undody;//  removes  translation 


I; 


//  ScaleChange  scales  the  Selections. 

class  ScaleChange  ;  public  ChangeNode  { 
public: 

ScaIcChange(Drawing*,  DrawingX^ew*,  float,  float); 

void  DoQ; 
void  UndoQ; 

protected: 

float  sx,  sy;//  carries  out  scaling 
float  undosx,  undosy;//  removes  scaling 


); 

//  StretchChange  stretches  the  Selections, 
class  StretchChange :  public  ChangeNode  { 


public: 


StretchChange(Drawing*»  Drawing  View*,  float.  Alignment); 

void  Do(); 
void  Undo(); 

protected: 

Alignment  C)ppositcSide(A!ignmcnt); 

float  stretch;//  carries  out  stretching 
float  undostretch;//  removes  stretching 
Alignment  side;//  indicates  fixed  side  for  do 
Alignment  undoside;// indicates  fixed  side  for  undo 


//  RotateChange  rotates  the  Selections. 

class  RotateChange  :  public  ChangeNode  { 
public: 

RotateChange(Drawing*,  DrawingView*,  float); 

void  Do(); 
void  Undo(); 

protected: 

float  angle;// carries  out  rotation 
float  undoangle;// removes  rotation 


//  Rq)laccChange  rq>laces  a  Selection  with  another  Selection. 

class  RepIaceChange  :  public  ChangeNode  { 
public: 

Rq)laceChange(Drawing*,  DrawingView*,  Selection*,  Selection*); 
~RcplaceChange(); 

void  Do(); 
void  UndoQ; 

protected: 

Selection*  replacee;// stores  to-be-replaced  Selection’s  address 
Selection*  replacer,// stores  replacing  Selection's  address 


//  SetBrushChange  sets  the  Selections’  brush. 

class  SctBmshChange  :  public  ChangeNode  { 
public: 

SctBrushChangc(Dra  wing*,  DrawingView*,  IBrush*); 

-SetB  rushChangeO; 

void  DoQ; 
void  Undo(); 

protected: 

IBrush*  brush;//  brush  value  to  set 

EBrushList*  undobmshlist;//  brush  values  to  restore 


}; 

//  SetFgColorChange  sets  the  Selections’  foreground  color. 

class  SetFgColorChange  :  public  ChangeNode  { 
public: 


180 


SetFgColorChange(Drawing*»  Drawing  View*»  ICoIor*); 

~SetFgColo  rChangeO ; 

void  Do(); 
void  UndoO; 

protected: 

IColor*  fgcolor;//  color  value  to  set 
ICoIoiList*  undofglist;//  color  values  to  restore 


//  SetBgCoIoiChange  sets  the  Selections'  background  color. 

class  SetBgColorChangc  :  public  ChangeNodc  { 
public: 

SetBgColorChange(Drawing*,  Dra  wing  View* » IColor*); 
-SetB  gColo  rChangcQ; 

void  Do(); 
void  Undo(); 

protected: 

IColor*  bgcolor,//  color  value  to  set 
IColoiList*  undobglist;//  color  values  to  restore 


}; 


//  SetFontChange  sets  the  Selections'  font 

class  SetFontChange  :  public  ChangeNodc  { 
public: 

SctFontChange(Drawing''‘,  DrawingView*,  IFont*); 
~SetFontChangc(); 

void  Do(); 
void  UndoO ; 

protected: 

IFont*  font;//  font  value  to  set 

IFontList*  undofontlist;//  font  values  to  restore 


); 


//  SetPattemChange  sets  the  Selections'  pattern. 

class  SetPattemChange  :  public  ChangeNodc  { 
public: 

SctPattemChangc(Drawing*,  DrawingView*,  IPattem*); 
-'SctPattcmChangcO; 

void  DoQ; 
void  Undo(); 

protected: 

IPattem*  pattern;  //  pattern  value  to  set 
IPattemList*  undopattemlist;  //  pattern  values  to  restore 


//  AddChangc  adds  the  Selections  to  the  Drawing. 

class  AddChangc  :  public  ChangeNodc  | 
public: 

AddChangc(Drawing*,  DrawingView^); 
-AddChangeO; 

void  DoO; 
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void  UndoQ; 
protected: 

boolean  done;//  remembers  if  change  was  done 


if  DeieteChange  deletes  the  Selections  from  the  Drawing. 

class  DeieteChange  :  public  ChangeNode  | 
public: 

DelcteChange(Drawing*,  DrawingVicw*); 
-DelcteChangeO; 

void  Do(); 
void  UndoQ; 

protected: 

SelectionList*  prevlist;//  lists  the  selections'  predecessors 
boolean  done;//  remembers  if  change  was  done 


I; 


//  CutChange  removes  the  Selections  from  the  Drawing  and  copies  them 
//  to  the  Clipboard,  deleting  the  Qipboard's  previous  contents. 

class  CutChange  :  public  DeieteChange  { 
public: 

CutChange(Drawing*,  DrawingVicw*); 
void  DoQ; 


//  Copy  Change  copies  the  Selections  to  the  Qipboard,  deleting  the 
//  Qipboard's  previous  contents. 

class  CopyChange  :  public  ChangeNode  { 
public: 

CopyChange(Drawing*,  DrawingVicw*); 
void  DoQ; 


I; 


//  PasteChange  copies  the  Selections  in  the  Clipboard  and  appends  the 
//  new  Selections  to  the  Drawing. 

class  PasteChange  :  public  AddChangc  { 
public: 

PasteChangc(Drawing*,  DrawingVicw*,  State*); 


//  DuplicateChange  copies  the  Selections  and  appends  the  new 
//  Selections  to  the  Drawing. 

class  DuplicateChange  :  public  AddChangc  { 
public: 

DuplicateChangc(Drawing*,  DrawingVicw*); 


); 

//  GroupChangc  groups  the  Selections  into  a  single  FHctSelection. 

class  GroupChangc :  public  ChangeNode  | 
public: 

GroupChangeCDrawing*,  DrawingVicw*); 
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-GroupChangcO; 

void  Do(); 
void  Undo(); 

protected: 

SclcctionList*  prcvlist;//  lists  the  selections'  predecessors 
GroupList*  grouplist;//  lists  the  selections  and  their  new  parent 
boolean  don<^//  remembers  whether  change  was  done 


}; 

//  UngroupChangc  ungroups  each  PictSelection  into  its  children. 

class  UngroiqjChange  :  public  ChangeNode  ( 
public: 

UngroupQiangc(Drawing*,  DrawingView*); 

'-Un  groupChangeO; 

void  DoQ; 
void  UndoO; 

protected: 

GroupList*  undogrouplist;//  lists  the  selections  and  their  children 
boolean  done;//  remembers  whether  change  was  done 


//  BringToFrontChange  brings  the  Selections  to  the  front  of  the 
//Drawing. 

class  BringToFrontChange  :  public  ChangeNode  { 
public: 

BringToFrontChangcODrawing"',  DrawingView*); 
~BringToFrontChangc(); 

void  Do(); 
void  UndoQ; 

protected: 

SelectionList*  p  rev  list;//  lists  the  selections'  predecessors 


//  SendToBackChange  sends  the  Selections  to  the  back  of  the  Drawing. 

class  SendToBackChange  :  public  ChangeNode  { 
public: 

Sen  dToBackChangc(Dra  wing*,  DrawingView*); 
-SendToBackChangeO ; 

void  Do(); 
void  Undo(); 

protected: 

SelectionList*  p  rev  list;//  lists  the  selections’  predecessors 


//  AlignChange  aligns  the  Selections. 

class  AlignChange  ;  public  ChangeNode  | 
public: 

AlignChangc(DTawing*,  DrawingView*,  Alignment,  Alignment); 
-AlignChangeO; 

void  DoQ: 
void  UndoQ; 


protected: 


Alignment  faiign;//  part  of  fixed  Selection  to  align  up  with 
Alignment  malign;//  part  of  moving  Selection  to  align  up  with 
CenterList*  centeriist;//  stores  Selections’  original  positions 


//  AlignToGridChange  aligns  the  Selections  to  the  grid. 

class  AlignToGridChange  :  public  ChangcNode  { 
public: 

AlignToGridChangc(Drawing*,  Drawing  View*); 
--AlignToG  ridChangcO ; 

void  Do(); 
void  UndoQ; 

protected: 

CenterList*  centeriist;// stores  Selections’  original  positions 


I; 


//  A  ChangeList  manages  a  list  of  ChangcNodcs. 

class  ChangeList :  public  BascList  { 
public: 

ChangcNode*  FirstQ; 

ChangeNodc*  LastQ; 

ChangcNode*  PrevQ; 

ChangcNode*  NextQ; 

ChangcNode*  GetCur(); 

ChangcNode*  Index  (int); 


inline  ChangeNodc*  ChangeList:  :First  ()  { 
return  (ChangcNode*)  BascList: :Rrst(); 

> 

inline  ChangcNode*  C!hangcList::Last  ()  { 
return  (ChangeNodc*)  BaseList::Last(); 

} 

inline  ChangcNode*  ChangeList:  :Prev  ()  | 
return  (ChangcNode*)  BascList: :Prev(); 

} 

inline  ChangeNodc*  ChangeList:  :Ncxt  0  I 
return  (ChangcNode*)  BascList: :NcxtO; 

I 

inline  ChangeNodc*  ChangeList: :GctCur  Q  { 
return  ((ThangcNode*)  BascList:  :GctCurO; 

) 

inline  ChangcNode*  ChangcList::Index  (int  index)  { 
return  (ChangcNode*)  BascList: :Indcx(index); 

} 

#cndif 


li$lchange.c 

#include  "drawing.h” 
#include  ’’drawingviewJi" 
#include  "listccntcnh” 
#include  "listchangc.h” 
#includc  "listgroup.h" 
#include  "listibrush.h” 
#includc  “listicolonh” 
#includc  “listifont.h" 


#include  "listipattcm.h" 

#mcludc  "listsclcctn.h" 
tincludc  "sclcction.h" 

#include  "slpicth" 

//  ChangcNodc  creates  a  dummy  ChangcNodc  object  for  the  header  of  the 
//  ChangeList. 

ChangeNode::ChangcNode  ()  { 
drawing  -  nil; 
drawingview  =s  nil; 
oldsl  =  nil; 

} 


//  ChangeNodc  stores  the  Drawing  and  DrawingView.  It  copies  the 
//  SelectionList,  optionally  sorting  the  SclectionList  first 

ChangeNode::ChangeNodc  (Drawing*  d,  Drawing\^cw*  dv,  boolean  sort)  { 
drawing  =  d; 
drawingview  =  dv; 
if  (sort)  { 
drawing->Sort(); 

I 

oldsl  =  drawing->GetSelectionsO; 

) 


//  Free  storage  allocated  for  the  list  of  old  Selections. 

ChangcNodc:  :-<^hangcNodc  ()  ( 
delete  oldsl; 

) 


//  Do  carries  out  the  change  to  the  Drawing. 

void  ChangcNodc:  JOo  0  { 

//nop 

) 


it  Undo  removes  the  change  to  the  Drawing. 

void  ChangcNodc:  :Undo  0  { 

//nop 

} 

//  MoveChangc  stores  the  Selections'  translation  in  reversible  form. 

MovcChangc::MovcChange  (Drawing*  d»  Drawing  View*  dv,  float  xdisp,  float  ydisp) 

:  ChangcNodc(d,  dv)  { 
dx  xdisp; 
dy  «  ydisp; 
undodx  s  -xdisp; 
undody  *=  -ydisp; 

) 


//  Do  moves  the  Selections. 

void  MovcChange:;Do  ()  { 

d  ra  wingvicw->ErascExcessHandles(oldsl) ; 
d  ra  wing->Sclcct(olds  I); 
d  ra  wingvicw->Damaged() ; 
drawing->Move(dx,  dy,  drawingview); 

) 

it  Undo  moves  the  Selections  back  to  their  original  places. 

void  MoveChangc:  :Undo  Q  I 

drawingvicw->ErascExccssHandles(oldsl); 
drawing->Select(oldsl); 
d  ra  wingview->Damaged(); 
drawing->Movc(undodx,  undody,  drawingview); 
d  ra  wingview->Damaged(); 
d  ra  wingview->RepairO ; 

\ 

//  ScaleQiange  stores  the  Selections’  scaling  in  reversible  form. 


185 


ScaleChange;:ScaIeChange  (Drawing*  d»  DrawingView*  dv,  float  xsc,  float  ysc) 

:  ChangeNodc(d,  dv)  { 
sx  *  xsc; 
sy  =  ysc; 

undosx  =  1.0  /  xsc; 
undosy  =  1.0/  ysc; 

} 

//  Do  scales  the  Selections. 

void  ScaleChange;  J)o  0  { 
diawingview->EraseExccssHandies(oldsl); 
drawing->Selcct(oldsI); 
d  ra  wingview->Damaged() ; 
drawing->Scale(sx»  sy); 
dra  wingvicw->DamagedO ; 
drawingvicw->Rq)air(); 

) 

//  Undo  scales  the  Selections  back  to  their  former  sizes. 

void  ScaleChange::Undo  Q  ( 
drawingview->EraseExcessHandles(oIdsl); 
drawing->Select(oldsl); 
d  ra  wingvicw->Damaged() ; 
drawing->Scalc(undosx,  undosy); 
dra  wingvieW‘>Damaged() ; 
drawingview->Rcpair(); 

} 


//  StrctchChange  stores  the  Selections'  stretching  in  reversible  form. 

StrctchChange::StretchChange  (Drawing*  d,  DrawingView*  dv»  float  str. 
Alignment  sd) :  ChangeNode(d»  dv)  { 
stretch  =  str; 
undostretch  =  1/str; 
side  =  sd; 

undoside  =  (str  <  0)  ?  OppositeSide(sd) :  sd; 

} 

//  Do  stretches  the  Selections. 

void  Stretch  Change:  Do  0  { 
d  ra  wingview->EraseEx  cessHandles(oldsl) ; 
d  ra  wing->Sel  ect(ol  dsl); 
d  ra  wingview->Damagcd() ; 
drawing‘>Strctch(stretch,  side); 
d  ra  wingview->Damaged() ; 
drawingview->Repair(); 

I 

//  Undo  stretches  the  Selections  back  to  their  former  sizes. 

void  StretchChange::Undo  ()  { 
d  ra  wingvi  ew- >EraseEx  cessHandles(oldsl) ; 
d  ra  wi  ng->Sclcct(ol  ds  1 ); 
dra  wingvi  ew->Damagcd(); 
drawing->Stretch(undostretch»  undc^idc); 
d  ra  wi  ngview->DamagedO ; 
drawingview->Rq)air(); 

) 

H  OppositeSide  returns  the  side  opposite  the  given  side. 

Alignment  StretchChangerrOppositeSide  (Alignment  original)  { 
Alignment  opposite; 
switch  (original)  ( 
case  Left: 
opposite  =  Right; 
break; 

case  Right: 
opposite  =  Left; 
break; 

case  Bottom: 
opposite  =  Top; 
br^; 
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case  Top: 

opposite  =  Bottom; 
break; 

) 

return  opposite; 

} 

//  RotateChange  stores  the  Selections'  rotation  in  reversible  form. 

RotateChange::RotateChange  (Drawing*  d,  Drawing  View*  dv,  float  a) ; 
ChangeNode(d,  dv)  { 
angle  »  a; 
undoangle  =  -a; 

} 


//  Do  rotates  the  Selections. 

void  RotateChange:  J)o  0  { 
dia  wingvicw->ErascEx  cessHandles(oldsl) ; 
drawing->Select(oIdsl); 
drawingview->Damagcd(); 
d  ra  wing->Rotatc(anglc); 
d  ra  wingvicw->Damagcd() ; 
d  ra  wingvicw->RepairO ; 

) 

//  Undo  rotates  the  Selections  back  to  their  original  places. 

void  RotateChange:  :Undo  0  { 

drawingvicW“>ErascExccssHandlcs(oldsI); 

drawing->Select(oldsl); 

drawingvicw->Damagcd(); 

drawing>>Rotate(undoangle); 

d  ra  wingvicw->Daniagcd(); 

diawingvicw->RqpairO; 

} 

//  Skew  commcnts/code  ratio  to  work  around  epp  bug 


If  ReplaceChange  stores  the  replaced  and  replacing  Selcctions. 

RcplaceChange::ReplaceChange  (Drawing*  d,  DrawingView*  dv,  Selection*  ee, 

Selection*  cr) :  ChangeNode(d,  dv)  { 
replacee  s  ee; 
replaccr  «*  er; 

} 

//  Free  storage  allocated  for  the  Selection  not  in  the 

//  Drawing,  which  always  resides  in  replaccr. 

RcplaccChangc::~RcplaccChangc  ()  { 
delete  replaccr; 

1 

//  Do  swaps  the  replaced  and  replacing  Selections. 

void  ReplaceChange: :Do  ()  { 
d  ra  wingvicw->]^scHandl  es(); 
d  ra  wi  ng->ScIect(r^lacce); 
d  ra  wingvi  ew->Damaged() ; 
drawing->Rcplacc(  replacee,  replaccr); 
drawing->Sclcct(r^laccr); 

Selection*  tonp  =  replacer, 
replaccr  >=  replacee; 
rq>lacee  >:temp; 

I 

//  Undo  unswaps  the  replaced  and  r^Iacing  Selections. 

void  ReplaceChange;  :Undo  Q  { 

Do(); 

1 
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//  SetBrushChange  stores  the  Selections*  original  brushes  and  the  new 

//  brush  to  set. 

SetB  rash  Change;  :SetBrushChange  prawing*  d,  DrawingView*  dv,  IB  rush*  br) 

:  ChangcNode(d,  dv)  ( 
brash  =  br, 

undobrushlist  =  drawing->GetBrushO; 

} 

//  Free  storage  allocated  for  the  list  of  original  brushes. 

SetBrashChange::~SetBrashChangeO  { 
delete  undobrushlist; 

) 

//  Do  sets  the  Selections'  new  brush. 

void  SetBrushChangeiJDo  ()  { 

d  ra  wingview->EraseEx  cessHand  les(oldsl ) ; 
d  ra  wing->Select(ol  dsl); 
d  ra  wingvicw->Daniagcd() ; 
d  ra  wing->SctB  rush  (brush) ; 
d  ra  wingview->Darnaged() ; 
d  ra  wingvicw->Repair() ; 

} 

//Undo  restores  the  Selections'  original  brushes. 

void  SetBrushChangerrUndo  0  I 

drawingview->ErascExccssHandlcs(oldsl); 

d  ra  wing->Select(olds  1); 

d  ra  wingview->Damagcd() ; 

dra  wing->SetB  rush  (undobrushlist) ; 

d  ra  wingvicw->Damaged() ; 

drawingvicw->RcpairO; 

} 


//  SetFgColorChangc  stores  the  Selections'  original  foreground  colors 
//  and  the  new  foreground  color  to  set, 

SetFgColorChange::SctFgColorChange  prawing*  d,  DrawingView*  dv,  IColor*  fg) 
:  ChangeNode(d,  dv)  { 
fgcoior  =  fg; 

undofglist  =  drawing->GetFgColorO; 

} 

//  Free  storage  allocated  for  the  list  of  original  colors. 

SetFgColorChangcit'-SetFgColorChangc  0  { 
delete  undofglist; 

} 


//  Do  sets  the  Selections'  new  foreground  color. 

void  SetFgColorChangerPo  ()  { 

d  ra  wingview->EraseExcessHandl  cs(oldsl); 
drawing->Selcct(oldsl); 
dra  wingview->Damagcd() ; 
drawing->SetFgColo  r(fgcolo  r) ; 
d  ra  wingvicw->Damaged() ; 
drawingvicw->Rcpair(); 

} 


//Undo  restores  the  Selections'  original  foreground  colors. 

void  SetFgColorChange:;Undo  ()  { 

dra  wingvi  cw->ErascEx  ccssHandles(oldsl ); 

drawing”>Select(old$l); 

drawingvicw->Dainagcd(); 

d  ra  wing->SctFgCo  lo  r(undofglist); 

dra  wingview->Damaged() ; 

drawingview->Rq)air(); 

I 

//  Skew  comments/code  ratio  to  work  around  epp  bug 
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//  SetBgColorChange  stores  the  Selections’  original  background  colors 
//  and  the  new  background  color  to  set, 

SctBgColorChange:;SetBgColorChange  (Drawing*  d,  DrawingView*  dv,  IColor*  bg) 
:  ChangeNodc(d,  dv)  { 
bgcolor -bg; 

undobglist  =  drawmg->GetBgColorO; 

}. 


//Free  storage  allocated  for  the  list  of  original  colors. 

SetBgColorChange: :-'SetBgColorChange  {)  { 
delete  undobglist; 

} 


//  Do  sets  the  Selections'  new  background  color. 

void  SelBgColorChangc:J)o  ()  { 

dra  wingview->ErascEx  cessHandl  es(oldsl) ; 

drawing“>Select(oldsl); 

dra  wingvicw->Damagcd() ; 

drawing->SctBgColor(bgcolor); 

d  ra  wingvicw->Damagcd() ; 

drawingview->Repair(); 

} 

//  Undo  restores  the  Selections'  original  background  colors. 

void  SetBgColorChange::Undo  ()  { 

d  ra  wingyiew->ErascEx  ccssHandlcs(oldsl); 

drawing->ScIcct(oldsl); 

d  ra  wingvicw->Damaged(); 

d  ra  wing->SctB  gColo  r(undobglist); 

drawingvicw->Damagcd(); 

drawingview->RcpairO; 

) 

//  SetFontChange  stores  the  Selections'  original  fonts  and 

//  the  new  font  to  set. 

SctFontChangc::SctFontChangc  (Drawing*  d,  DrawingView*  dv,IFont*  f) 

:  ChangeNode(d,  dv)  { 
font  =  f; 

undofontlist  =  drawing->GetFontO; 

I 

//  Free  storage  allocated  for  the  list  of  original  fonts. 

SetFontChange:  :~SetFontChange  ()  { 
delete  undofontlist; 

1 

//  Do  sets  the  Selections’  new  font 

void  SetFontChange ::Do  ()  { 

drawingview->ErascExccssHandlcs(oldsl); 

drawing’>Sclcct(oldsl); 

drawingview->Damagcd(); 

d  ra  wing“>SetFont(font) ; 

d  ra  wingvi  ew->Damaged(); 

drawingvicw->Rcpair(); 

I 

//  Undo  restores  the  Selections’  original  fonts. 

void  SetFontChange;  :Undo  ()  { 

d  ra  wingvicw->ErascEx  ccssHan  dles(oldsl) ; 
drawing->Selcct(oldsl); 
d  ra  wingvi  ew->Daniagcd() ; 
d  ra  wing->S  etFont(undo  fontlist) ; 
dra  wi  ngvi  eW‘>Damagcd() ; 

drawingview->RcpaiK); 

1 


//  SetPattemChange  stores  the  Selections’  original  patterns  and  the 
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//  new  pattern  to  set. 


SetPattemChange::SctPattemChange  (Drawing*  d,  DrawingView*  dv,  IPattem*  pat) 
:  ChangcNode(d,  dv)  { 
pattern  =  pat; 

undopattcndist  =  drawing->GetPattemO; 

) 

//  Free  storage  allocated  for  the  list  of  original  patterns. 

SetPattcmChangc::-SetPattemChangc  ()  { 
delete  undopattemlist; 

} 

II  Do  sets  the  Selections’  new  pattern. 

void  SetPattemChange::Do  ()  { 

dra  wingvicw->EraseEx  cessHandles(oldsl) ; 

drawing->Select(oldsl); 

dra  wing->S  ctPattem(pattcm); 

drawingvicw->Daniaged(); 

drawingview->Rq)aii(); 

} 


//  Undo  restores  the  Selections'  original  patterns. 

void  SetPattemC!hangc::Undo  ()  { 
drawingvicw->EraseExcessHandlcs(oldsl); 
drawing“>Select(oldsl): 
drawing->SetPattcm(undopattcmlist); 
dra  wingvicw“>Damagcd() ; 
drawingvicw->R^air(); 

) 

//  AddC!hangc  knows  it  hasn't  done  its  change  yet, 

AddChange::AddClhange  (Drawing*  d,  Drawing\^ew*  dv) :  ChangeNode(d,  dv)  { 
done  =  false; 

} 

//  Free  storage  allocated  for  the  Selections  if  AddChange 

//  never  added  them  to  the  Drawing. 

AddChange:  r-AddCHiangc  ()  { 
if(!done){ 

for  (oldsl->First();  !oldsl->AtEnd();  oldsl->Next())  { 

Selection*  s  =  o Ids l->GetCurO’>GctS election (); 
delete  s; 

) 

I 

I 

//  Do  appends  the  Selections  to  the  Drawing. 

void  AddChange: -Do  Q  { 

drawingvicw->EraseHandles(); 
drawing'>Sclect(oldsl); 
drawing->Appcnd(); 
d  ra  wi  ngvicw->  AddedO ; 
d  ra  wingvicw->Repai  K) ; 
done  “  true; 

} 

II  Undo  removes  the  Selections  from  the  Drawing, 

void  AddChangc::Undo  ()  { 

dra  wi  ngview->ErascEx  cessHandles(oldsl) ; 

d  ra  wing->Selcct(ol  ds  1 ); 

d  ra  wi  ngvie  w->Damagcd() ; 

dra  wing->Removc() ; 

drawing->ClearO; 

drawingvicw->Rcpair(); 

done  =  false; 

I 

//  DcletcChange  stores  the  Selections'  predecessors. 
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DcleteChange::DeletcChangc  (Drawing*  d,  Drawing  View*  dv) : 

ChangcNodc(d,  dv,  true)  { 
prcvlist  drawing->GetPrevs(); 
done  =s  false; 

) 

//  Free  storage  allocated  for  the  Selections  if  DcleteChangc 

//  removed  them  from  the  Drawing. 

DeleteChange::~DcletcChange  0  I 
delete  prcvlist; 
if  (done)  { 

for  (oldsl->First();  !oldsI->AtEnd();  oldsl->Next())  { 

Selection*  s  ==  oldsl->GctCurO->GetSclcction(); 
delete  s; 

) 

) 

} 

//  Do  removes  the  Selections  from  the  Drawing, 

void  DelctcC!hangc::Do  0  ( 

drawingview->EraseExccssHandles(oldsl); 
d  ra  wing->Selcct(ol  dsl); 
d  ra  wingvicw->Damaged(); 
drawing->Removc(); 
drawing->Clcar(); 
drawingvieW'>RcpaiK); 

drawingvicw->DrawO; 
done  =  true; 

} 

//  Undo  puts  the  Selections  back  where  they  came  from  in  the  Drawing. 

void  DcleteChangc: :Undo  0  I 

drawingvicw->ErascExcessHandles(oldsl); 

drawing->Sclcct(oldsl); 

d  ra  wing->InscrtAftcrPrcv  (prev  list); 

drawingvicw->DamagcdO; 
drawingview->RepaiK); 
done  =s  false; 

) 


//  CutChange  passes  its  arguments  to  its  DcleteChangc  constructor. 

CutChangc::CutChange  (Drawing*  d,  DrawingView*  dv) :  DeleteChange(d,  dv)  { 

1 

//  Do  removes  the  Selections  from  the  Drawing  and  writes  them  to  the 
//  clipboard  file,  overwriting  the  clipboard  file's  previous  contents. 

void  CutChange:  :Do  0  { 

d  ra  wingvieW“>EraseEx  ccssHandles(oIdsI) ; 
d  ra  wing->Sclcct(olds  I ); 
drawing->WriteClipboard(); 

DelcteChange:  :DoO; 

} 


//  CopyChange  must  sort  the  Selections. 

CopyChangc::CopyC^angc  (Drawing*  d,  DrawingView*  dv) : 
C!hangcNodc(d,  dv,  true)  | 

) 

//  Do  writes  the  Selections  to  the  clipboard  file,  overwriting 
//  whatever  was  there  previously. 

void  CopyChange:  :Do  0  I 

drawingvicw“>EraseExccssHandles(oldsl); 

drawing->Selcct(oldsl); 

dra  wing->WritcC  lipboard  0; 

I 


//  PasteChange  reads  the  clipboard  file  and  stores  the  clippings  for 
//  pasting  into  the  Drawing  later. 
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PasteChangeiJ^asteChange  (Drawing*  d.  Drawing  View*  dv.  State*  state) 
;  AddChangc(d,  dv)  ( 
delete  oldsl; 

oldsl  =  drawing->RcadClipboard(state); 

} 

//  DuplicatcChangc  stores  duplicates  of  the  picked  Selections  for 
H  pasting  into  the  Drawing  later. 

DuplicatcChangc:  DuplicateChangc  (Drawing*  d,  DrawingView*  dv) : 
AddChangc(d,  dv)  { 
drawing->SortO; 
delete  oldsl; 

oldsl  =  drawing->GctDupli  cates  0; 


If  GroupChangc  stores  the  Selections'  new  parent  and  their 
//  predecessors. 

GroupChangc::GroupChangc  (Drawing*  d,  Drawing\^ew*  dv) ; 
ChangeNode(d,  dv,  true)  { 
grouplist  =  drawing‘>GctParent(); 
prevlist  =  drawing->GctPrevs(); 
done  -  false; 

) 


//  Delete  frees  storage  allocated  for  the  Selections'  new  parent  if 
//  they  never  end  up  grouped  under  it  and  the  lists  themselves. 

GroupChangc: I'-GroupChangc  0  1 
if(!done){ 

for  (grouplist->First(); ! group list->AtEndO;  grouplist->Next())  { 
PictSclcction*  s  =  grouplist->GctCur()->GctParcnt(); 
delete  s; 


delete  grouplist; 
delete  prevlist; 

} 

//  Do  groups  the  Selections  under  their  parent. 

void  GroupChange::Do  ()  { 
d  ra  wingyi  cw->ErascHandlcs(); 
drawing->Group(grouplist); 
d  rawingview->Damaged(); 
drawingvicw->RcpaiTO; 
done  =  true; 

} 


//  Undo  ungroups  the  Selections  and  puts  them  back  where  they  came 

//  from  in  the  Drawing. 

void  GroupChangc ::Undo  Q  ( 
d  ra  wingvi  ew->ErascHandles(); 
dra  wi  ng->Ungroup(groupli  st) ; 
drawing->RcmovcO; 
drawing->InsertAftcrPrev(prevlist); 
d  ra  wingvicw->Damagcd(); 
drawingview->Rq)air(); 
done  =  false; 

\ 

//  UngroupChangc  stores  the  Selections'  children. 

UngroupChangc::Ungro  up  Change  (Drawing*  d,  DrawingView*  dv) : 

ChangcNodc(d,  dv,  true)  { 
undogrouplist  *  d  rawing- >GetChildren(); 
done  false; 

} 

//  Delete  frees  storage  allocated  for  the  Selections  if  they  were 

//  ungrouped  and  for  the  list  itself. 

UngroupChangc::~UngToupChangc  ()  | 
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if  (done)  { 

for  (undogrouplist->KistO;  !undogrouplist->AtEndO; 
undogroiiplist->Next()) 

boolean  haschildren  ■sundogroi^Ust->GetCur()->GetHasChiIdrenO; 
if  (haschildrcn)  { 

PictS election*  s  =  undogrouplist->GctCur()'>GetParcnt(); 
delete  s; 

} 

} 

} 

delete  undogrouplist; 

I 


//  Do  replaces  all  Selections  which  contain  children  with  their 

//  children. 

void  UngroupChange:  Do  ()  { 
diawingview->EraseHandles(); 
drawing->Ungroup(undogro»q)list); 
dra  wingview->Red  ra  wHandlesO; 
done  =  true; 

} 

//  Undo  regroups  each  set  of  children  under  their  former  parents. 

void  UngroupChange::Undo  ()  { 
drawingview->EraseHandles(); 
drawing->Group(undogTouplist); 
dra  wingview->Redra  wHandl  es(); 
done  false; 

) 

//  Skew  comments/code  ratio  to  woric  around  cpp  bug 


//  BringToFrontChange  stores  the  Selections’  predecessors. 

BringToFrontQiangc;DringToFrontCniange  (Drawing*  d,  DrawingView*  dv) 
:  C!hangeNode(d,  dv,  tme)  { 
prevlist  =  drawing->GetPrevsO; 

} 


//  Delete  frees  storage  allocated  for  the  Selections’  predecessors. 

BringToFrontC:hange::~BringToFrontChange  0  I 
delete  prevlist; 

I 

//  Do  brings  the  Selections  to  the  front  by  removing  them  from  and 

//  appending  them  to  the  Drawing. 

void  BringToFrontC!hange::Do  ()  { 
drawingview->EraseHandles(); 
dra  wing->S  elect(ol  dsl); 
drawing->Rcmovc(); 
d  ra  wing->Appcnd() ; 
drawingview->  AddedO ; 
d  la  wingview->Repair() ; 

I 

//  Undo  puts  the  Selections  back  where  they  came  from  in  the  Drawing. 

void  BringToFrontChange ::Undo  0  I 

d  ra  wingview- >EraseExcessHandles(oldsl); 
dra  wing->Select(olds  1 ); 
d  ra  wing->Remove(); 
d  iawing->InsertAftcrPrev(p  rev  list); 
d  ra  wingview->Damagcd(); 
drawingyicW’>Rcpair(); 

I 


//  SendToBackChange  stores  the  Selections’  predecessors. 
ScndToBackChangc::Scn(froBackC!hangc  (Drawing*  d.  DrawingView*  dv) 
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:  ChangeNode(d,  dv,  trae)  { 
prcvlist  =  drawing->GciPrevs(); 

I 

//  Delete  frees  storage  allocated  for  the  Selections'  predecessors. 

ScndToBackaiangc;:~ScndToBack:Change  0  { 
delete  prcvlist; 

} 


//  Do  sends  the  Selections  to  the  back  by  removing  them  from  and 
//  prepending  them  to  the  Drawing. 

void  SendToBack  Change:  X)o  ()  { 

d  rawingview“>EjraseExcessHan  dles(oldsl) ; 
dra  wing->Scl  ect(ol  ds  1); 
drawing->Remove(); 
d  ra  wing->Prepcn  d(); 
drawingview->Damaged(); 
drawingview->Rq>air(); 

} 


//  Undo  puts  the  Selections  back  where  they  came  from  in  the  Drawing. 

void  ScndToBackQiangc;;Undo  ()  { 

d  ra  wingvicw->EraseEx  ccssHandles(oldsl); 

drawing->Selcct(oldsl); 

d  ra  wing“>RcmovcO ; 

d  ra  wing->InsertAfterPrcv  (p  revlist); 

d  ra  wingvicw->Damaged(); 

drawingvicw->Repair(); 

) 


//  AlignChange  stores  the  Selections'  original  positions  and  their 
//  desired  alignments. 

AlignChange:  lAlignChangc  (Drawing*  d,  DrawingView*  dv,  Alignment  fix. 
Alignment  move) :  ChangeNodc(d,  dv)  { 
falign  =  fix; 
malign  =  move; 

centeriist  =  drawing->GetCe^itcrO; 

} 

//  Delete  frees  storage  allocated  for  the  list  of  original  positions. 

AIignChange::~AlignChange  ()  { 
delete  centeriist; 

) 


//  Do  aligns  the  Selections. 

void  AlignChange:  J)o  Q  { 

d  ra  wi  ngvic  w->EraseEx  cessHandles  (oldsl); 
d  ra  wing->Select(ol  ds  I); 
d  ra  wingvic  w- >Damagcd() ; 
drawing->Align(falign,  malign); 
d  ra  wingview->Damagcd() ; 
d  ra  wingview-  >Rcpai  r() ; 

I 


//  Undo  moves  the  Selections  to  their  original  positions. 

void  Align  Change:  :Undo  ()  { 

d  ra  wi  ngvic  w->EraseEx  cessHandles(oldsl) ; 
drawing'>Sclcct(oldsl); 
d  ra  wingvicw->Damagcd() ; 
d  ra  wing->SetCcnter(ccntcrlist); 
d  ra  wingvi  cw->Damaged() ; 
drawingview->Repair(); 

I 

//  AlignToG  rid  Change  stores  the  Selections'  original  positions. 

AlignToGridChange::AIignToGridChangc  (Drawing*  d,  DrawingView*  dv) 

ChangcNodc(d,  dv)  { 
centeriist  *  drawing‘>GctCcnterO; 


} 

//  Delete  frees  storage  allocated  for  the  list  of  original  positions. 

AlignToGridChangerr-'AlignToGridChange  ()  { 
delete  ccnterlist; 

} 

//  Do  aligns  the  Selections'  lower  left  comers  to  the  nearest  grid 

//point 

void  AlignToGridChangc::Do  0  { 
drawingvicw->EraseExcessHandles(oldsl); 
d  ra  wing->Sclcct(ol  dsl ); 
d  ra  wingvicw->Dainagcd(); 
dra  wi  ng->Ali  gnTo  G  ri  d() ; 
drawingview->Damagcd() ; 
dra  wingvicw->Rq>aiK) » 

) 

//  Undo  moves  the  Selections  to  their  original  positions. 

void  AlignToGridChange::Undo  ()  { 

d  ra  wingview->ErascEx  ccssHandles(oldsl ); 
d  ra  wing->Sclect(ol  dsl); 
drawingvicw->Dainagcd(); 
d  ra  wing->SetCenter(centerlist); 
d  ra  wingvicw->Damaged(); 
drawingvicw->Repair(); 

} 


llstgroup.h 


tifhdef  listgroup_h 
#dcfine  listgroup_h 

#includc  "listh" 

//  Declare  imported  types. 

class  PictS election; 
class  Selectionlist; 

//  A  GroupNode  contains  a  PictSclcction  pointer,  a  boolean  value,  and 
//two  SelectionList  pointers. 

class  GroupNode  :  public  BascNode  { 
public: 

GroupNode(PictSclcction*,  boolean,  SelectionList*); 

-GroupNodcO; 

PictSclcction*  GetParent  0  i  return  parent;  } 
boolean  GetHasChildren  0  (  return  haschildren;  } 

SelectionList*  GetChildren  Q  (  return  children;  } 

SelectionList*  GetChildrraGS  0  i  return  childrengs;  ) 

protected: 

PictSelection*  parmt;// contains  a  Selection  which  may  have  diildren 
boolean  haschildroi;//  true  if  this  parmt  has  children 
SelectionList*  children;//  lists  the  parent's  children,  if  any 
SelectionList*  childrengs;// stores  the  children's  orig.  graphic  states 


); 


//  A  GroupList  manages  a  list  of  GroupNodes. 

class  GroupList :  public  BaseList  { 
public: 


GroupNode*  FiistQ; 
GroupNode*  LastQ; 
GroupNode*  PrevO; 
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GroupNodc*  NextQ; 
GroupNode*  GetCurQ; 
GroupNodc*  Index  (in  t); 


I; 


//  Cast  these  functions  to  return  GroupNodcs  instead  of  BaseNodcs. 

inline  GroupNode*  Groi^Listri^irst  ()  { 
return  (GroupNode*)  BaseList::First(); 

) 

inline  GroupNode*  GroupList::Last  Q  { 
return  (GroupNode*)  BaseList;:LastO; 

} 

inline  GroupNode*  Groi;q)List:*J*rev  ()  { 
return  (GroupNode*)  BaseList::Prev(); 

} 


inline  GroupNodc*  GroupList:  J^cxt  Q  { 
return  (GroupNode*)  BascList::NextQ; 

) 


inline  GroupNode*  GroupList::GctCur  0  { 
return  (GroupNodc*)  BaseList::GctCurO; 

) 


inline  GroupNode*  GroupList;;Index  (int  index)  { 
return  (GroupNode*)  BascListiJndex (index); 

} 


#aidif 


U$^roup.c 

#include  "listgroup.h" 

#include  "listsclectrLh” 

#include  "sclcction.h" 

//  Groiq)Nodc  stores  the  parent,  boolean  value,  children,  and  the 
//  children's  original  graphic  states. 

GroupNode::GroupNodc  (PictSclcction*  p,  boolean  h,  SelectionList*  si)  { 
parent  =  p; 
haschildren  -  h; 
children  =  new  SelectionList; 
childrengs  =  new  SelectionList; 
for  (sl->Rrst();  !sI->AtEndO;  sl->NextO)  I 
Selection*  child  =  sl->GctCurf)“>GctSclcctionO; 

Selection*  childgs  «  new  Sclection(child); 
children ->Appcnd(ncw  SelcctionNodc(child)); 
childrcngS‘>Appwd(new  SelcctionNodc(childgs)); 

} 

} 

if  Free  storage  allocated  to  list  the  children  and  allocated 
//  for  their  graphic  states. 

GroupNodc:  :-'GioupNodc  0  ( 
delete  children; 

for  (child rengs->First();  Ichildr«igs->AtEndO;  diildrengs->Ncxt())  | 
Selection*  s  *  childrcngs->GetCurO->GctSclcctionO; 
delete  s; 

) 

delete  childrengs; 

I 


listibrush.h 

#ifhdcf  listibrush_h 
#dcfinc  listibrush_h 

#include  "listh" 
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//  Declare  imported  types, 
class  IBrush; 

//  An  EBrushNode  contains  an  IBrush  pointer. 

class  IBrushNode :  public  BaseNode  { 
public: 

IBfushNodc  (IBrush*  b)  {  brush  =  b;  ) 

boolean  SameValucAs  (void*  p)  {  return  brush  ~p;  } 

IBrush*  GctBrush  0  {  return  brush;  } 

protected: 

IBrush*  brush;//  points  to  an  IBrush 


}; 


//  An  IBrushList  manages  a  list  of  IBrushNodes. 

class  IBrushList :  public  BaseList  { 
public: 

IBrushNode*  FirstO; 

IBrushNode*  Last(); 

IBrushNode*  Prev(); 

IBrushNode*  Ncxt(); 

IBrushNode*  GetCurO; 

IBrushNode*  Index  (int); 


//  Cast  these  functions  to  return  IBrtishNodes  instead  of  BaseNodes. 

inline  IBrushNode*  IBrushList;  Jnrst  ()  { 
return  (IBrushNode*)  BaseList: dPirst(); 

} 


inline  IBrushNode*  IBrushList:  0  { 

return  (IBrushNode*)  BaseList:LastO; 

) 

inline  IBrushNode*  IBrushList; :Prev  Q  { 
return  (IBrushNode*)  BaseList::PrevO; 

} 

inline  IBrushNode*  IBrushList::Next  ()  { 
return  (IBrushNode*)  BaseList: :NextO; 

) 

inline  IBrushNode*  IBrushList::GctCur  ()  { 
return  (IBrushNode*)  BaseList: :GetCurO; 

I 

inline  IBrushNode*  IBrushList:  Jndex  (int  index)  { 
return  (IBrushNode*)  BaseList::Index (index); 

} 

#endif 


llsticolor.h 

#ifiidef  listicolor_h 
#define  listicolor_h 

#include  "Iist.h*' 

//  Declare  imported  types. 

class  IColor; 

//  An  IColorNode  contains  an  IColor  pointer. 

class  IColorNode  :  public  BaseNode  { 
public: 


IColoiNode  (IColor*  c)  {  color »  c;  } 

boolean  SameValucAs  (void*  p)  {  return  color  =  p;  } 

ICoIor*  GetColor  ()  {  return  color,  } 

protected: 

IColor*  color,//  points  to  an  IColor 


); 


//  An  IColorList  manages  a  list  of  IColorNodcs. 

class  IColorList :  public  BaseList  ( 
public: 

ICoIoiNodc*  Fiist(); 

IColoiNode*  LastO; 

IColoiNode*  PrcvQ; 

IColoiNode*  NextO; 

IColoiNode*  GetCurO; 

IColoiNode*  Index(int); 


//  Cast  these  functions  to  return  IColorNodcs  instead  of  BaseNodes. 

inline  IColorNodc*  IColorList: :First  ()  { 
return  (IColoiNode*)  BaseList: rFirstQ; 

} 

inline  IColorNode*  IColorList:  :Last  ()  { 
return  (IColorNodc*)  BaseList: :Last(); 

) 

inline  IColorNode*  IColorList; :Prcv  ()  { 
return  (IColorNodc*)  BaseList:  J*rcv(); 

} 

inline  IColorNode*  IColorList: Next  0  { 
return  (IColorNode*)  BaseList: NextQ; 

inline  IColorNode*  IColorList:  :GctCur  Q  { 
return  (IColorNode*)  BaseList: :GctCur(); 

} 

inline  IColorNode*  IColorList:  :Index  (int  index)  | 
return  (IColorNode*)  BaseList; dndcx(indcx); 

I 

#cndif 


listifonth 


#ifiidef  listifont_h 
#dcfinc  listifont_h 

#includc  "listh" 

//  Declare  imported  types. 

class  IFont; 

//  An  IFonNodc  contains  an  IFont  pointer, 

class  IFontNode  :  public  BascNodc  { 
public: 

IFontNode  (IFont*  0  {  font «  f;  ) 

boolean  Samc\^lueAs  (void*  p)  {  return  font  ==  p;  } 

IFont*  GetFont  ()  {  return  font;  } 


protected; 


IFont*  font;//  points  to  an  IFont 


}; 


//  An  rPontUst  manages  a  list  of  BFontNodes. 

class  IFontList :  public  BascList  { 
public: 

IFontNodc*  FiistQ; 

IFontNode*  LastQ; 

IFontNodc*  PrevQ; 

IFontNodc*  Ncxt(); 

IFontNode*  GetCur(); 

IFontNodc*  Index(int); 


); 


//  Cast  these  functions  to  return  IFontNodes  instead  of  BascNodcs. 

inline  IFontNodc*  IFontList:  :First  0  { 
return  (IFontNodc*)  BascList:  JnrstQ; 

) 

inline  IFontNodc*  IFontList: -last  ()  { 
return  (IFontNodc*)  BascList: lastQ; 

} 

inline  IFontNodc*  IFontList:  :Prcv  0  { 
return  (IFontNodc*)  BascList: :PrcvO; 

) 

inline  IFontNodc*  IFontList;  J4cxt  Q  ( 
return  (IFontNodc*)  BascList:  J^extQ; 

} 

inline  IFontNodc*  IFontList  ::GctCur  0  { 
return  (IFontNodc*)  BascList: :GctCurO; 

) 

inline  IFontNode*  IFontList: ‘Index  (int  index)  { 
return  (IFontNodc*)  Basd^ist:  Jndex(index); 

1 


#cndif 


li$tintrctr.h 

#ifhdcf  listintrctr_h 
#define  listintrctr_h 

#inc)ude  "lisUh" 

If  Declare  imported  types. 

class  Intcractor; 

ft  An  IntcractorNode  contains  an  Interactor  pointer. 

class  IntcractorNode :  public  BaseNode  { 
public: 

IntcractorNode  (Intcractor*  i)  {  intcractor  *  i;  ) 
boolean  SameValueAs  (void*  p)  {  return  intcractor  =  p;  ) 
Intcractor*  Getinteractor  Q  (  return  intcractor;  } 

protected: 

Intcractor*  intcractor;//  points  to  a  Intcractor 


I; 


//  An  IntcractorList  manages  a  list  of  IntcractorNodes. 

class  IntcractorList :  public  BascList  { 
public: 


InteractorNodc*  FirstQ; 
InteractorNode*  LastQ; 
InteractorNodc*  PrevQ; 
InteractorNode*  NextQ; 
InteractorNodc*  GetCur(); 
InteractorNodc*  Index(int); 


//  Cast  these  functions  to  return  IntcractorNodes  instead  of 

//  BascNodcs. 

inline  InteractorNodc*  IntcractorList;:First  ()  { 
return  (InteractorNodc*)  BaseIjst::KrstO; 

) 

inline  InteractorNodc*  IntcractorIist:*J^st  0  { 
return  (InteractorNodc*)  BaselistiiastO; 

I 

inline  InteractorNodc*  IntcractorList::Prcv  ()  { 
return  (InteractorNodc*)  BascList::PrcvO; 

I 


inline  InteractorNodc*  IntcractorList::Ncxt  ()  { 
return  (InteractorNodc*)  BascList::Ncxt(); 

I 


inline  InteractorNodc*  IntcractorIist::GctCur  Q  { 
return  (InteractorNodc*)  BascList::GctCur(); 

I 


inline  InteractorNodc*  IntcractorIist::Index  (int  index)  { 
return  (InteractorNodc*)  BaseL!st;:Index(index); 

} 


#cndif 


iistipattern.h 

#ifndef  listipattcm_h 
#dcfinc  listipattcm_h 

^include  "list.h’‘ 

//  Declare  imported  types. 

class  IPattem; 

//  An  IPattemNode  contains  an  IPattem  pointer. 

class  IPattemNode :  public  BaseNode  { 
public: 

IPattemNode  (IPattem*  p)  {  pattern  =  p;  } 

boolean  SamcValucAs  (void*  p)  {  return  pattern  ~p;  } 

IPattem*  GetPattem  0  {  return  pattern;  } 

protected; 

IPattem*  pattern;//  points  to  an  IPattem 


); 


//  An  IPattemList  manages  a  list  of  IPattemNodes. 

class  IPattemList :  public  BaseList  { 
public: 

IPattemNode*  Rrst(); 

IPattemNode*  LastQ; 

IPattemNode*  Prev(); 

IPattemNode*  NextQ; 

IPattemNode*  GetCurQ; 

IPattemNode*  Index  (int); 


//  Cast  these  functions  to  return  IPattcmNodes  instead  of  BaseNodes. 


inline  ff  attcmNode*  IPattcmList:  Jnrst  ()  { 
return  (IPattemNode*)  BascList::FiistO; 

} 

inline  IPattemNodc*  IPattcmList::Last  0  I 
return  (IPattcmNode*)  BascListiiastQ; 

} 

inline  IPattcmNode*  IPattemList::Prev  ()  { 
return  (IPattemNode*)  BascList:;PrevO; 

I 

inline  IPattcmNode*  IPattcmList::Next  ()  { 
return  (IPatteraNode*)  BaseList:JNcxt(); 

) 

inline  IPattemNode*  IF'attcmList^GetCur  ()  { 
return  (IPattcmNode*)  BascList::GetCurO; 

) 


inline  IPattcmNode*  IPattcmList::Index  (int  index)  { 
return  (IPattcmNode*)  BaseList:  index  (index); 

) 

#cndif 


listsele€tn.h 

#i&idef  listsclcctn_h 
#dcfine  listsclcctn_h 

#include  ”list.h” 

//  Declare  imported  types, 

class  Selection; 

//  A  SclectionNode  stores  a  pointer  to  a  Selection. 

class  Select!  onNodc  :  public  BascNodc  { 
public: 

SclectionNode  (Selection*  s)  {  selection  *=  s;  } 
boolean  SamcValueAs  (void*  p)  {  return  selection  =  p;  } 
Selection*  GctSelection  0  I  return  selection;  } 

protected: 

Selection*  selection;//  points  to  a  Selection 


}; 


//  A  SelectionList  manages  a  list  of  SelectionNodes. 

class  SelectionList :  public  Baselist  { 
public: 

SclectionNode*  Rrst(); 

SclectionNode*  Last(); 

SclectionNode*  Prev(); 

SclectionNode*  NextO; 

SclectionNode*  GetCurO; 

SclectionNode*  Index  (int); 


I; 


//  Cast  these  functions  to  return  SelectionNodes  instead  of  BaseNodes. 

inline  SclectionNode*  SelectionList:  JFirst  0  { 
return  (SclectionNode*)  BascList::FiistO; 


} 

inline  SelectionNode*  SelectionList::Last  ()  { 
return  (SelcctionNode*)  BaseListriastO; 

I 


inline  SelcctionNode*  SelcctionList:  J^rcv  ()  { 
return  (SclectionNodc*)  BascList::Prev(); 

I 

inline  SclectionNodc*  Sc!cctionList::Ncxt  ()  { 
return  (SclectionNodc*)  BascList;:Ncxt(); 

I 

inline  SclectionNodc*  SelcctionList;:GetCur  0  { 
return  (SclectionNodc*)  BaseList::GetCur(); 

I 


inline  SelcctionNode*  SelectionList:Jndcx  (int  index)  { 
return  (SclectionNodc*)  BascList::Indcx(indcx); 

1 

#cndif 


maln.c 


#include  ‘’idraw.h" 

#include  <IntcrViews/worldJi> 

//  Predefine  default  properties  for  the  window  size,  paint  menus,  and 
//  history, 

static  PropcrtyData  properties[]  =  { 

(  ”*fonU","*-courier-mcdium-r-*-80‘*  Courier  8"  }, 

{  "*font2","*-couricr-mcdium“r-*-100-*  Courier  10"  }, 

{  '**font3",*'*-couricr-bold-r-*-120“*  Courier-Bold  12"  }, 

{  "*font4","*-hclvctica-mcdium-r-*-120-*  Helvetica  12"  ), 

I  "♦font5","*-helvetica-medium-r-*-140-*  Helvetica  14"  }, 

{  "*font6","*-hclvctica-bold-r-*”140-*  Helvetica-Bold  14"  }, 

I  "*font7","*-hclvetica-mcdium-o-*-l40-*  Helvetica-Oblique  14"  }, 
I  "*font8","*-times-medium-r-*-120-*  Times-Roman  12"  }, 

I  "*font9","*-timcs-medium-r-*-140-*  Times-Roman  14"  }, 

I  "♦  font  10","*-times-bold-r- *-140-*  Times-Bold  14"  }, 

{  "*fontir',"*-times-medium-i-*-140-*  Timcs-Italic  14"  }, 

{  "*brushr’,  "ffff  2  0  1"  ), 

{  "•brush2",  "ffif  1  0  1"  }, 

//  These  brush  types  are  not  needed  for  a  data  flow  diagram 

/*  *****  Start  of  Commented  Out  Code  ***** 

I  "*brushr',"none"  }, 

I  "*bmsh2","fffT  10  0"  },  removed  all  brush  types  except  for 
I  "♦bmsh3","fflT  1  10"  },  the  type  that  has  as  its  first  end 
I  "*bmsh4","ffff  101"  ),  endpoint  the  end  without  the  arrow 
I  "*bnish5","fflT  111"),  head  and  it's  second  or  last  end 
{  "*bmsh6","3333  1  0  0"  |,  point  is  the  end  with  the  arrowhead 
{  "*bmshr."3333  2  0  0"  }, 

I  "*bmsh8"."ffff2  0  0"  }, 

*****  End  of  Comments  Out  Code  *****  */ 

{  "*pattcm  r',"nonc"  |, 

{  "*pattem2","0.0"  ), 
i  "*pattcm3",'T.0"  }, 

I  "*arrowpattcml","none"  |, 

I  "*aiTowpattcm2","0,0"  }, 

I  "*arrowpattcm3","1.0"  }, 

//  These  patterns  arc  not  needed  for  a  data  flow  diagram 

/*  Start  of  Commented  Out  Code  **♦♦♦ 

{  "*pattcm4","0.75"  }, 

I  “•pattern  5  ","0.5"  |, 

{  "*pattcm6","0.25"  |, 

I  "*pattcm7","1248"  ), 

I  "*pattcm8","842r*  }, 
i  "*pattcm9","n)00"  ), 


202 


{  "*patteml0",’'8888"  ), 

{  "*pattemll"."f888"  ), 

{  "*pattcml2","8525’'  )♦ 

{  "*patteml3‘',‘'cc33"  ), 

{  "*pattcml4",'7bcd''  ), 

End  of  Conruncntcd  Out  Code  ♦/ 


{  ”*fgcolorl ''/'Black"  ), 

I  "♦fgcolor2", "Brown  42240  10752  10752"  }, 

I  "*fgcolor3"/'Rcd"  }, 

{  "♦fgcolor4"/’Orangc"  ), 

{  ”*fgcolor5 "/'Yellow"  }, 

{  "*fgcolor6"/’Green"  }, 

{  "*fgcoIor7"/’Bluc"  }, 

{  "*fgcolor8"/*Indigo  48896  0  65280"  |, 

{  "♦fgcolor9"/Violet  20224  12032  20224"  }, 

{  "*fgcolorl0",  "White" 

{  "*fgcolorl  l"/’LtGray  50000  50000  50000" 

{  "♦fgcolorl2"/'DkGray  33000  33000  33000" 

{  "*bgcolorl "/'Black"  }, 

{  "♦bgcolor2"/'Brown  42240  10752  10752"  }, 

{  "♦bgcolor3"/'Rcd"  |, 

{  "♦bgcolor4" /'Orange"  }, 

{  "*bgcolor5  "/'Yellow"  }, 

{  "♦bgcolor6" /'Green"  |, 

I  "♦bgcolor7"/'Bluc"  }, 

{  "*bgcolor8"/'Indigo  48896  0  65280"  |, 

{  "♦bgcoloi9"/'Violet  20224  12032  20224"  }, 

I  "*bgcolorl0"/'Whitc"  ), 

{  "*bgcolorll"/'LtGray  50000  50000  50000"  |, 

{  "♦bgcolorl2"/'DkGray  33000  33000  33000"  }, 
{  "♦initialfont"/'2"  }, 

{  "*initialbrash"/'l"  ), 

{  "♦initialpattcm"/'3"  }, 

{  "♦initialarrowpattcm",  "2"  }, 

{  "*initialfgcolor"/'l"  }, 

{  "*initialbgcolor"/'10"  }, 

{  "♦histoiy"/'20"  ). 

{  "♦revcrseVidco"/'off'  ), 

{  "*smal)"/'tnie"  |, 

{  *'*geomctry",  "+10+10"}, 

{nil  } 

>; 


//  Define  window  size  options. 

static  OptionDcsc  options[]  =  { 

I  "‘1",  "*smaH",  Option Valucimplicit,  "false" 
{  "-s",  "*smaH",  O^tionValucImplicit^  "true" 
{nil  I 

1; 


//  main  creates  a  connection  to  the  display  server,  creates  idraw,  and 
//  opens  idraw's  window.  After  idraw  stops  running,  main  closes 
//  i^w's  window,  deletes  everything  it  created,  and  returns  success. 

int  main  (int  arge,  char**  argv)  { 

World*  world  «  new  World("Idraw",  properties,  options,  arge,  argv); 
Idraw*  idraw  ■«  new  Idraw(argc,  argvy, 

wo  rld->lnseitAppHcation  (idraw); 

idraw->Run(); 

world->Ranove(idraw); 

delete  idraw; 
delete  world; 

const  int  SUCCESS  =  0; 
return  SUCCESS; 

) 


mapipainLh 

#ifhdcf  mapipaint_h 
#definc  mapipaint_h 


#include  ^tcrVicws/dcfsii> 


//  Declare  imported  types. 


class  BaseList; 
class  BascNodc; 
class  IBrush; 
class  IBrushList; 
class  IColor; 
class  IColorList; 
class  IFont; 
class  IFontList; 
class  IPattem; 
class  IPattemList; 
class  Intcracton 

//  A  MapIPaint  creates  a  list  of  predefined  and  user-defined  ratries. 

class  MapIPaint  { 
protected: 

void  Init(BaseList*,  Intcractor*,  const  char*); 
void  DefineEntries (BaseList*,  Intcractor*,  const  char*); 
void  DefincInitial(Intcractor*,  const  char*); 
virtual  BascNodc*  CrcatcEntry(const  char*); 

int  initial;//  denotes  which  entry  is  used  on  startup 


); 


//  A  MapIBrush  manages  a  list  of  predefined  and  user-defined  brushes. 

class  MapIBrush  :  public  MapIPaint  { 
public: 

MapIBrush(Intcractor*,  const  char*); 

~\^pIBmsh(); 

int  SizcO; 
boolean  AtEnd(); 

IBrush*  FirstO; 

IBrush*  LastO; 

IBrush*  Prcv(); 

IBrush*  Next(); 

IBrush*  GetCurO; 

IBrush  *  Index  (int) ; 
boolean  Find(IBrush*); 

IBrush*  GetInitialO; 

IBrush*  FindOrAppend(boolcan,  int,  int,  int,  int); 
protected: 

BascNodc*  CrcatcEntry (const  char*); 

IBrushList*  ibmshlist;  //  stores  idraw's  IBrushes 


1; 


//  A  MapIColor  manages  a  list  of  predefined  and  user-defined  colors. 

class  MapIColor :  public  MapIPaint  { 
public: 

MapIColor(Intcractor*,  const  char*); 

-MapIColorO; 

int  SizcO; 
boolean  AtEnd(); 

IColor*  FiistO; 

IColor*  LastO; 

IColor*  PrevO; 

IColor*  NextO; 

IColor*  GetCurO; 

IColor*  Index  (int); 
boolean  Find(lColor*); 

IColor*  GetInitialO; 


IColor*  FindOrAppcnd(const  char*»  int,  int,  int); 
protected: 

BaseNodc*  CreateEntry (const  char*); 
ICoioiList*  icolorlist;  //  stores  i  draw's  IColors 


//  A  MapIFont  manages  a  list  of  predefined  and  user-defined  fonts. 

class  MapIFont :  public  MapIPaint  { 
public: 

MapIFont(Intcractor*,  const  char*); 

-MapTFontO; 

int  Sizc{); 
boolean  At£nd(); 

IFont*  FirstO; 

IFont*  Last(); 

EFont*  PrevO; 

IFont*  Ncxt(); 

EFont*  GetCurO; 

IFont*  Indcx(int); 
boolean  Find(IFont*); 

IFont*  GetInitialO; 

IFont*  FindOr Append  (const  char*,  const  char*,  const  char*); 
protected: 

BaseNode*  CreateEntry  (const  char*); 

IFontList*  ifontlist;  //  stores  idraw's  IFonts 


1; 

//  A  MapIPattem  manages  a  list  of  predefined  and  user-defined 
//  patterns. 

class  MapIPattem  :  public  MapIPaint  { 
public: 

MapIPattem  (Interactor*,  const  char*); 

-MapIPattem  0; 

int  Sizc(); 
boolean  AtEnd(); 

IPattem*  FirstO; 

IPattem*  LastO; 

IPattem*  Prev(); 

IPattem*  Ncxt(); 

IPattem*  GetCuK); 

IPattem*  Index  (int); 
boolean  Find(IPattem*); 

IPattem*  GetInitialO; 

IPattem*  FindOTAppend(boolean,  float,  int*,  int); 
protected: 

BaseNode*  CreateEntry  (const  char*); 
int  Cal  cBitmap  (float); 

void  Expan(froFullSizc(int*,  int); 

IPattemlist*  ipattemlist;  //stores  idraw's  IPattems 


1; 


#cndif 


mapipaintc 


#include  "ipaint.h" 

#include  "istring-h" 

#includc  "listibrash-h" 

#include  "listicolorh" 

#iiiclude  "listifonth" 

#includc  "listipattcm.h" 

#include  "mapipaint.h" 
finclude  <InterVicws^itcractor.h> 

#include  <bstring.h> 

#include  <strcam  Ji> 

//  Init  creates  the  list's  entries,  initializes  the  number  denoting 
//  the  initial  entry,  and  ensures  both  list  and  initial  are  valid. 

void  MapIPaint::Init  (BaseList*  list,  Intcractor*  i,  const  char*  menu)  { 
DefineEntricsOist,  i,  menu); 

Dcfinelnitial(i,  mmu); 
if(Iist->SizeO«=:0){ 

fprintf(stderr,  "No  entries  in  menu,  ",  menu); 
fprintf(stdcrr,  "creating  a  default  entryVn"); 
list->  App  end(CreateEntry  (nil)); 

I 

if  (list->Indcx(initial-l)  =  nil)  { 
fprintf(stdcrr,  "No  attribute  at  %s  entry  %d, ",  menu,  initial); 
fprintf(stderr,  "setting  initial  attribute  from  first  cntryNn"); 
initial  =  1; 

} 

} 

//  DefineEntries  reads  predefined  or  user-defined  attributes  and 
//  creates  entries  in  the  list  from  these  attributes.  It  retrieves 
//  each  attribute  using  the  concatenation  of  the  menu's  name  and  a 
//  number  which  increments  from  1 .  The  first  undefined  or  empty 
//  attribute  terminates  the  menu's  definition. 

void  MapIPaint:;DefineEntries  (BaseList*  list,  Intcractor*  i, 
const  char*  menu)  ( 
char  menuproperty[20]; 
intnum  =  1; 

sprintf(menuproperty,  mmu,  num); 

const  char*  attribute  =  i->GctAttribute(menupropcrty); 
while  (attribute  !=  nil  &&  strlen(attributc)  >  0)  | 

BaseNodc*  entry  =  CreatcEntry (attribute); 
if  (entry  !=  nil)  { 

Iist->Appcnd(mtry); 

}  else  { 

fprintf(stdcrT,  "couldn't  parse  attribute  for  %s\n'\  menuproperty); 

} 

sprintf (menuproperty,  "%s%d",  menu,  ++num); 
attribute  =  i->GetAttribote(mcnuproperty); 

} 

I 

//  Dcfinelnitial  reads  a  predefined  or  user-defined  attribute  to 
//  define  the  number  denoting  the  initial  entry.  For  example, 

//  "idraw.initialfont:  2"  sets  the  initial  font  from  the  second  entry. 

void  MapIPaint::DcfincInitial  (Interactor*  i,  const  char*  menu)  { 
char  propcrtyf20]; 
sprintf(propcrty,  "initial%s",  menu); 

const  char*  def  =  i->GctAttributc(propcrty); 
char*  definition  -  strdup(def);  //  some  sscanfe  write  to  their  format., 
if  (sscanf (definition,  "%d'\  &initial)  !=  1)  | 
initial  =  2;//  default  if  we  can’t  parse  definition 
fprintf(stderr,  "can't  parse  attribute  for  %s,  ",  property); 
fprintf(stdcrr,  "value  set  to  %dNn",  initial); 

} 

delete  definition; 

1 

//  CreateEntry  creates  and  returns  an  entry  containing  an  attribute 
//  defined  by  the  given  string.  A  subclass  must  implement  it 


BaseNode*  MapIPaint::CreateEntry  (const  char^)  { 
return  new  BaseNodc; 

} 

//  Skew  comments/code  ratio  to  work  around  cpp  bug 


//  MapIBrush  creates  its  brushes  from  predefined  or  user-defined 
//  attributes. 

MapIBrush:;MapIBrush  (Interactor*  i,  const  char*  menu)  { 
ibrushlist  =  new  IBrushList; 
lnit(ibrushlist,  i,  menu); 

) 

//  -MapIBrush  frees  storage  allocated  for  the  brushes  and  the  list 

MapIBrash:;-MapIBrush  ()  { 
for  (IB rush*  brush  =  FirstQ; !  AtEnd();  brush  =  NextQ)  { 
delete  brush; 

} 

delete  ibrushlist; 

1 

//  Implement  functions  to  give  readonly  access  to  the  list 

int  MapIBmsh::Size  0  { 
return  ibrushlist->SizeO; 

) 


boolean  MapIBrush;  :AtEnd  0  { 
return  ibiushlist->AtEnd(); 

) 

IB  rush*  MapIBrushtiFirst  ()  { 
return  ibrushlist->First()->GetBrushO; 

} 

IBiush*  MapIBrush::Last  ()  { 

return  ibrushlist->Last()->GetBrush(); 

} 

IBrush*  MapIBrush::Prev  ()  { 
return  ibrushlist->Prcv()->GetBrushO; 

} 

IBrush*  MapIBrush::Ncxt  ()  { 
return  ibrushIist->NextO->GetBmshO; 

} 


IBrush*  MapIBrush::GetCurO  ( 
return  ibiushlist->GetCurO->GctBrush(); 

1 

IBrush*  MapIBrush::Index  (int  index)  { 

return  ibrushlist->Index(index)->GetBrush(); 

1 

boolean  MapIBrush; ’JFind  (IBrush*  brush)  { 
return  ibrushlist->Find(biush); 

) 

IBrush*  MapIBrush;;Getlnitial  0  { 
it  remember  index  «  0-basc,  initial  =  1-base 
return  ibrushlist->Index(initial-l)->GctBrushO; 

1 

it  FindOrAppend  checks  if  the  list  already  has  a  brush  with  the  same 

//  attributes  as  the  given  attributes.  If  so,  it  returns  the  brush 

//  already  in  the  list;  otherwise,  it  creates  a  new  brush,  appends  it 

//  to  the  list,  and  returns  it. 

IBrush*  MapIBrush;;FindOrAppend  (boolean  none,  int  p,  int  w,  int  1,  int  r)  { 
IBrush*  brush  ■  nil; 
if  (none)  { 
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for  (brush  =  First();  !AtEnd();  brush  -  Ncxt())  { 
if  (brush ->None())  { 
return  brush; 

) 

} 

brush  *=  new  IBrxish; 

}  else  I 

for  (brush  =  First();  1  AtEnd();  brush  =  Ncxt())  | 
if  (!  brush ->None()  && 
brush->GctLinePattcmO  =  p  && 
brush>>WidthO  =  w  && 
brush->LeftAiTowO  ==  I  && 
brush->RightArn)w()  =  r) 

I 

return  btxish; 


brush  ss  new  IBrush(p,  w,  1,  r); 

} 

ibrushlist“>Appcnd(new  IBrushNodc(brush)); 
return  brush; 

} 


//  CreateEntry  returns  an  entry  containing  a  brush  created  by  parsing 
//  the  given  definition  or  an  entry  containing  a  default  brush  if  no 
//  definition  was  given.  The  definition  usually  contains  two  numbers 
//  and  two  booleans:  a  16-bit  hexadecimal  number  to  define  the  brush’s 
//  pattern^  a  decimal  integer  to  define  the  brush's  width  in  pixels, 

//  either  0  or  1  to  determine  whether  lines  start  from  an  arrowhead, 

//  and  either  0  or  1  to  determine  whether  lines  cod  in  an  arrowhead. 

H  One  definition  may  contain  the  string  "none"  to  define  the 
//  nonexistent  brush.  I  found  out  sscanf  barfs  if  you  put  Ox  before 
fj  the  hexadecimal  number  so  you  can't  do  that 

BascNode*  MapIBrush:;CrcatcEntry  (const  char*  deO  { 
if  (def  s=  nil)  { 
dcf  =  "fffn0  0"; 


char*  definition  =  strdv^(def);  //  some  sscanfs  write  to  their  format.. 

BaseNode*  entry  -  nil; 
int  p,  w; 
boolean  1,  r, 

boolean  none  =  (definition [0]  =;  "n'  11  definition [0]  =  N"); 
if  (none)  { 

entry  =  new  IBrushNodc(new  IBrush); 

}  else  if  (sscanf(dcfinition,  "%x  %A  %d  %d'\  Sep,  Sew,  &1,  &r)  —  4)  { 
entry  =  new  IBrushNode(new  lBrush(p,  w,  1,  r)); 

} 

delete  definition; 
return  entry; 

) 


//  MapIColor  creates  its  colors  from  predefined  or  user-defined 
//  attributes. 

MapIColor::MapIColor  (Intcractor*  i,  const  char*  menu)  { 
icolorlist  =  new  IColorList; 
lnit(icolotiist  i,  maiu); 

1 

//  -MapIColor  frees  storage  allocated  for  the  colors  and  the  list 

MapIColor::~MapIColor  0  { 
for  (IColor*  color  =  FirstQ;  !AtEnd();  color  =  Ncxt())  { 
delete  color, 

} 

delete  icolorlist 

} 


//  Implement  functions  to  give  readonly  access  to  the  list 
int  MapIColor; ;Sizc  ()  { 
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return  icoiorlist->Size(); 

} 

boolean  MapIColon;AtEnd  0  ( 
return  icoIorlist->AtEnd(); 

} 


IColor*  MapIColor:  Jnrst  Q  I 
return  icolorlist->Rrst{)->GetColorO; 
I 


IColor*  MapIColor::Last  ()  { 

return  icolorIist->LastO->GctColor(); 

) 

IColor*  MapIColor:  J>rcv  Q  { 

return  icolorlist->Prcv()->GctColorO; 

) 

IColor*  MapICoIor::Ncxt  ()  { 

return  icolorlist->NcxtO->GctColor(); 

1 


IColor*  MapICoIoruGetCur  ()  { 

return  icolorlist->GetCurO->GetColorO; 

} 


IColor*  MapIColor: -Index  (int  index)  ( 

return  icolorlist“>Indcx(indcx)->GetColorO; 

) 

boolean  MapICoIonl^ind  (IColor*  color)  { 
return  icolorlist->Find(color); 

} 


IColor*  MapIColor::GetInitial  ()  { 

//  remember  index  =  0-basc,  initial  =  l*basc 
return  icolorlist->Index(initial-l)->GetColorO; 


//  FindOrAppeod  checks  if  the  list  already  has  a  color  with  the  same 
//  name  as  Ac  given  name.  If  so,  it  returns  Ae  color  already  in  Ac 
//  list;  oAcrwisc,  it  creates  a  new  color,  appends  it  to  Ac  list, 

//  and  returns  it. 

IColor*  MapIColor: JFindOr Append  (const  char*  name,  int  r,  int  g,  int  b)  { 
IColor*  color  -  nil; 

for  (color  «  RrstO;  I  AtEnd();  color  =  Ncxt())  { 
if  (strcmp(color->GctNamc(),  name)  ==  0)  { 
return  color; 

} 

) 

color  =  new  IColor(name); 
if  (!color->ValidO)  { 
delete  color, 

color  *  new  IColor(r,  g,  b,  name); 
if  (!color->ValidO)  { 

fprintf(slderr,  "invalid  color  name  %s  ",  name); 
fprintf(stdcrr,  "and  mtensities  %d  %d  %d,  ",  r,  g,  b); 
fprintf(stdcrr,  "substituting  blackNn"); 
delete  color, 

color  «  new  IColor(blad£,  name); 


I 

icolorlist->Appcnd(new  IColorNodc(color)); 
return  color, 

I 

U  CreatcEnlry  returns  an  entry  containing  a  color  created  by  using 
//  Ac  given  name  or  an  entry  contaming  a  default  color  if  no  name 
//  was  given. 

BascNode*  MapIColoniCreatcEntry  (const  char*  dcO  I 
if  (def  *=  nil)  | 
def- "Black"; 
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} 

char*  definition  =  strdup(def);  //  some  sscanfs  write  to  their  format., 

IColor*  color  =  nil; 
char  name[  100]; 
int  r*=  0,  g  =  0,  b  =  0; 

if  (sscanf (definition,  "%s  %d  %d  %d'\  name,  &r,  &g,  &b)  =4)  { 
color  =  new  IColor(r,  g,  b,  name); 
if  (!color->Valid0)  { 

fprintf(stdeiT,  ’’invalid  intensities  %d  %d  %d,  ",  r,  g,  b); 
fprintf(stdciT,  "using  color  name  %s\n’',  name); 
delete  color, 

color  =  new  IColor(name); 
if(!color->Valid()){ 

fprintf(stdcnr,  "invalid  color  name  %s, ",  name); 
fprintf(stdcrr,  "substituting  blackNn"); 
delete  color, 

color  =  new  IColor(black,  name); 


} 

}  else  if  (sscanf(definition,  "%s",  name)  —  1)  { 
color  =  new  IColor(name); 
if  (!color->Valid0)  { 

fprintf(stdeiT,  "invalid  color  name  %s, ",  name); 
fprintf(stderr,  "substituting  blackNn"); 
delete  color, 

color  =  new  IColor(bIack,  name); 

) 

} 

delete  definition; 

BascNode*  entry  =  lul; 
if  (color  I=nil)  { 
entry  =  new  IColorNode(color); 

} 

return  entry; 

) 

//  MapIFont  creates  its  fonts  from  predefined  or  user-defined 
//  attributes. 

MapIFont:  iMapIFont  (Intcractor*  i,  const  char*  menu)  { 
ifontlist  =  new  IFontList; 

Initfifontlist,  i,  menu); 

I 

if  -MapIFont  frees  storage  allocated  for  the  fonts  and  the  list 

MapIFont::~MapIFont  0  { 
for  (IFont*  font  ssRistQ;  !AtEnd();  font  =  Ncxt())  { 
delete  font; 

} 

delete  ifontlist; 

) 


//  Implement  functions  to  give  readonly  access  to  the  list 

int  MapIFont:  :Size  ()  | 
return  ifontlist- >Si2c(); 

I 

boolean  MapIFont: :At£nd  Q  ( 
return  ifontlist->AtEnd(); 

I 

IFont*  MapIFont:  Jnrst  0  I 
return  ifontlist->First0->GetFont0; 

\ 

IFont*  MapIFont: l>ast  ()  { 

return  ifontlist->Last()->GctFont(); 

) 

IFont*  MapIFont: i^rev  0  i 
return  ifontlist->Prev()->GctFontO; 


} 


BFont*  MapIFont;:Next  ()  { 

return  ifontlist‘>NcxtO->GctFont(); 

} 

IFont*  MapIFont::GctCur  ()  { 
return  ifontlist->GctCur()->GetFont(); 

} 


IFont*  MapIFont::Indcx  (int  index)  { 

rctu  m  ifontlist->Indcx(indcx)->GetFontO; 

} 

boolean  MapIFont::Find  (BFont*  font)  { 
return  ifontlist->Find(font); 

} 


IFont*  MapIFont::GetInitial  ()  | 

//  lemonber  index  *  0-basc,  initial  *=  1-base 
return  ifontlist->Index  (initial- 1  )->GctFont(); 

) 

//  FindOr Append  checks  if  the  list  already  has  a  font  with  the  same 
//  attributes  as  the  given  attributes  (excqpt  for  the  name  because  it 
H  depends  on  the  window  system  used).  If  so,  it  returns  the  font 
//  already  in  the  list;  otherwise,  it  creates  a  new  font,  appends  it 
//  to  the  list,  and  returns  it. 

IFont*  MapIFont:  J^indOrAppaid  (const  char*  name,  const  char*  pf, 
const  char*  ps)  { 

IFont*  font  *=  nil; 

for  (font  =  FirstO;  !  AtEnd();  font  =  Next())  { 
if  (strcmp(font->GetPrintFontO.  pf)  =  0 
&&  strcmp(font->GctPrintSi2c(),  ps)  0) 

{ 

return  font; 

} 

} 


font  =  new  IFont(namc,  pf,  ps); 
if  (!font->ValidO)  { 

fprintf(stderr,  "invalid  font  name  %s, ",  name); 
fprintf(stdcrr,  "substituting  stdfontVn"); 
delete  font; 

font  =  new  IFont("stdfont",  pf,  ps); 

I 

ifontlist->Appaid{newIFontNode(font)); 
return  font; 

} 

//  CreatcEntry  returns  an  entry  containing  a  font  created  by  parsing 
//  the  given  definition  or  an  entry  containing  a  default  font  if  no 
//  definition  was  given.  The  definition  must  contain  three  strings 
//  separated  by  whitespace  to  define  a  font  The  first  string  defines 
//  the  font's  name,  the  second  string  the  corresponding  print  font, 

//  and  the  third  string  the  print  size. 

BascNode*  MapIFont:;CrcateEntry  (const  char*  def)  { 
if(def  =  nil){ 
def  =  "stdfont  Courier  10"; 

) 

char*  definition  =  strdup(deO;  //  some  sscanfs  write  to  their  format.. 

BaseNode*  entry  -  nil; 
char  name  [100]; 
char  pf[  100]; 
char  ps[10]; 

if  (sscanf(definition,  "%s  %s  %s",  name,  pf,  ps)  ~  3)  { 

IFont*  font »  new  IFont(namc,  pf,  ps); 
if  (!font->Valid())  | 

fprintf(stdcrr,  "invalid  font  luune  %s,  ",  name); 
fprintf(stderr,  "substituting  stdfonfsn"); 
delete  font 

font  «=  new  IFont("stdfont",  pf,  ps); 
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entry  =  new  IFontNode(font); 

} 

delete  definition; 
return  entry; 

} 

H  MapIPattem  creates  its  patterns  from  predefined  or  user>defined 
//  attributes. 

MapIPattem ::MapIPattcm  (Interactor*  i,  const  char*  menu)  { 
ipattemlist  =  new  IPattemList; 

Init(ipattcmlist»  i,  menu); 

) 

//  ^MapIPattem  frees  storage  allocated  for  the  patterns  and  the  list. 

MapIPattem  "^MapIPattem  ()  { 

for  (IPattem*  pattern  =First();  lAtEndQ;  pattern  =  Next())  { 
delete  pattern; 

} 

delete  ipattemlist; 

} 


//  Impl«nent  functions  to  give  readonly  access  to  the  list, 

int  MapIPattemrrSizc  0  ( 
return  ipattemlist->Size(); 

} 

boolean  MapIPattcm::AtEnd  ()  { 
return  ipattcmlist->AtEnd(); 

I 

IPattem*  MapIPattem ::Rist  ()  { 

return  ipattemlist->FirstO->GctPattem(): 

} 


IPattem*  MapIPattem :iast  0  { 

return  ipattemlist->Last()->GetPattcmOj 

} 

IPattem*  MapIPattem :iVev  ()  { 

return  ipattemlist'>PrevO->GetPattem(); 

) 


IPattem*  MapIPattem  "Next  ()  { 

return  ipattemlist->NcxtO“>GetPattcm(); 

) 

IPattem*  MapIPattem "GetCur  ()  1 

return  ipattcmlist->GetCur()->GetPattem(); 

} 

IPattem*  MapIPattem:  Jndex  (int  index)  { 
return  ipattemlist->Indcx (index )->GetPattemO; 

} 


boolean  MapIPattem:  J^d  (IPattem*  pattern)  { 
return  ipattemlist->Find (pattern); 

1 

IPattem*  MapIPattem::GctInitial  ()  | 

//  remember  index  =  0-base,  initial  =  1-basc 
return  ipattcmlist->Index(initial-l  )->GetPattcm(); 

} 

//  Skew  comments/code  ratio  to  wort  around  epp  bug 


//  FindOrAppend  checks  if  the  list  already  has  a  pattern  with  the  same 
//  attributes  as  the  given  attributes.  If  so,  it  returns  the  pattern 
//  al  ready  in  the  list;  otherwise,  it  creates  a  new  pattern,  appends 
//  it  to  the  list,  and  returns  it. 


IPattcm*  MapIPatlem: JnndOrAppCTid  (boolean  none,  float  graylevel, 
int  data[patteniHeight],  int  size)  { 

IPattcm*  pattern  =  nil; 
if  (none)  { 

for  (pattern  =  FirstQ; !  AtEnd();  pattern  =  NextQ)  { 
if  (pattcm->None())  { 
return  pattern; 

I 

} 

pattern  =  new  IPattcm; 

}  else  if  (graylevel  !=  -1)  { 
for  (pattern  =  FirstQ;  1  AtEndQ;  pattern  -  NextQ)  { 
if  (pattcm->GetGrayLevel()  —  graylevel)  { 
return  pattern; 

I 

) 

int  shade  =  C^lcBitmap (graylevel); 
pattern  =  new  IPattcm(shadc,  graylevel); 

}  else  { 

Expan(froFullSizc(data,  size); 
for  (pattern  =  FirstQ; !  AtEndQ;  pattern  *=  NextQ)  { 
if  (pattem->GetSizeO  I*  0)  { 
const  int*  cmpdata  *  pattem->GetDataQ; 
if  (bcmp(data,  cmpdata,  pattemHeight  *  sizeof(int))  —  0)  { 
return  pattern; 

} 

) 

) 

pattern  -  new  IPattem(data,  size); 

) 


ipattcmlist->Appcnd(new  IPattcmNode^attem)); 
return  pattern; 

} 

//  CreatcEntry  returns  an  entry  containing  a  pattern  created  by 
//  parsing  the  given  deflnition  or  an  entry  containing  a  default 
//  pattern  if  no  definition  was  given.  The  deflnition  usually 
//  contains  either  one  or  pattcmHci^t  16-bit  hexadecimal  numbers  to 
//  define  cither  a  4x4  pattern  or  a  pattemWidth  x  pattemHeight 
//  pattern.  One  deflnition  may  contain  the  string  "none**  to  define 
//  the  nonexistent  pattern.  I  found  out  sscanf  barfs  if  you  put  Ox 
//  before  the  hexadecimal  number  so  you  can't  do  that 

BaseNode*  MapIPattcm::CrcatcEntry  (const  char*  def)  { 
if(dcf-«nil){ 
def  "0.0"; 

) 

char*  deflnition  =  strdup(def);  //  some  sscanfs  write  to  their  format.. 
BaseNode*  entry  «  nil; 

boolean  none  «  (deflnition  [0]  *=  *n'  II  deflnition[0]  *=  N*); 
if  (none)  { 

entry  *  new  IPattemNode(ncw  IPattcm); 

}  else  { 

if  (strchr(ddinition, '.')  1=  nil)  { 
float  graylevel; 

if  (sscanf(deflnition,  "%f',  &graylevel)  **=!){ 
int  shade  =  CalcBitmap (graylevel); 
entry  «  new  IPattemNode(new  IPattem(shade,  graylevel)); 

I 

1  else  { 

istream  from(strlen (definition)  +  1,  definition); 

char  buffcr[80]; 

int  data  [pattemHeight]; 

for  (int  i  ■=  0;  from  »  buffer  &&  i  <  pattemHeight;  i++)  { 
if  (sscanf 0>uffcr,  "%x",  &data[i])  !=  1)  { 
break; 

} 

[ 

if  (i  «  1 II  i  =  8  II  i  =  pattemHeight)  { 

ExpandToFullSizeCdata,  i); 


entry  new  IPattemNode(new  IPattem(data,  i)); 

} 


) 

delete  definition; 
return  entry; 

} 


//  CalcBitmap  calculates  a  4x4  bitmap  to  rqjrcsent  a  shade  having  the 
//  given  gray  level. 

int  MapIPattcm "CalcBitmap  (float  graylevcl)  { 
static  const  int  SHADES  =  17; 
static  int  shades  [SHADES]  =  { 

OxfFff,  Oxefff,  Oxefbf,  Oxafbf, 

Oxafaf,  Oxadaf,  0xada7, 0xa5a7, 

OxaSaS,  0x85a5, 0x8525, 0x0525, 

0x0505,  0x0405, 0x0401, 0x0001, 

0x0000 

}; 

return  shadcs[round(grayIcvcl  *  (SHADES  - 1))]; 

} 


//  ExpandToFulISizc  expands  the  bitmap  from  4x4  or  8x8  to  16x16. 

void  MapIPattcm:£xpan(nroFulISizc  (int  data[pattcmHeight],  int  size)  { 
if  (size  =  1)  { 
int  seed  =  data[0]; 
for  (int  i  =  0;  i  <  4;  i++)  ( 
data[i]  =  (seed  &  OxfOOO)  »  12; 
data[i]  h  data[i]  «  4; 
data[i]  N  data[i]  «  8; 
data[i+4]  =  data[i]; 
data  [i +8]  =  data[i]; 
data[i+12]  =  data[ij; 
seed  «=  4; 

} 

]  else  if  (size  =  8)  { 
for  (int  i  =  0;  i  <  8;  i++)  { 
data[i]  &=  Oxff; 
data[i]  N  data[i]  «  8; 
data[i+8]  =  data[ij; 

} 

}  else  if  (size  =  pattCTnHcight)  { 
const  unsigned  int  pattern WidthMask  =  —('-0  «  pattcmWidth); 
for  (int  i  K  0;  i  <  pattcmHeight;  i++)  | 
data[i]  &=  pattern  WidthMask; 

I 

)  else  ( 

fprintf(stdciT,  "invalid  size  passed  to  ExpandToFuIlSizeNn"); 

} 

1 


mapkey.h 

#ifhdef  mapkey_h 
#dcfine  mapkey_h 

#includc  <IntcrViews/defs.h> 

//  Declare  imported  types. 

class  Intcractor; 

//  A  MapKcy  maps  characters  to  Interactors. 

static  const  int  MAXCHAR  =  127;//  Maximum  value  of  any  character. 

class  MapKey  { 
public; 


MapKcyO; 

void  Enterflnteractor*,  char); 
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Intcractor*  LookUp(char); 
const  char*  ToStr(char); 

protected: 

Intcractor*  array[MAXCHAR  +  1];  //  stores  Interactors  by  character 


}; 


#aidif 


mapkey.c 


#tnclude  ’’ntapkey.h" 

#include  <ctypc.h> 

#include  <InterViews/Std/stdio.h> 

//  MapKey  clears  MapKey's  array  to  all  nils. 

MapKey::MapKey  0  { 
for  (int  i  =  0;  i  <=  MAXCHAR;  i++)  { 
array[i]  =  nil; 

} 

} 

//  Enter  enters  an  Literactor  into  a  slot  in  MapKey's  array.  If  the 
//  slot  doesn't  exist  or  another  Intcractor  already  occupies  it, 

//  Enter  prints  a  warning  message. 

void  MapKcy:£nter  (Intcractor*  i,  diar  c)  { 
if  (c  >=  0  &&  c  <-  MAXCHAR)  { 
if  (array[c]  =  nil)  { 
array  [c]  *=i; 

I  else  { 

fprintf(stdcrr,  "MapKey:  slot  %d  already  occvqjiedlNn",  c); 

} 

}  else  I 

fprintf(stdcrr,  "MapK^;  slot  %d  not  in  arrayINn",  c); 

) 

} 

//  Look  Up  returns  the  Intcractor  associated  with  the  given  character 
//  or  nil  if  there's  no  Intcractor  or  the  character's  out  of  bounds. 

Intcractor*  MapKey:  iLookUp  (char  c)  | 
if  (c>=  0  && c <=  MAXCHAR)  { 
return  anay[c]; 

I  else  I 

fprintf(stderr,  "MapKey:  slot  %d  not  in  arraylVn",  c); 
return  nil; 

) 

) 

//ToStr  returns  a  printable  string  representing  the  giv«i  character. 

//  The  caller  must  copy  the  returned  string  because  the  next  call  of 
//ToStr  will  change  it 

const  char*  MapKey: :ToStr  (char  c)  { 
static  char  key[3]; 
if  (!isprint(c))  { 
c*toascii(c  +  0100); 
kcy[0) « 

I  else  ( 
kcy{0)«"; 

I 

kcy[  1 1  e  c; 
kcy[2]«0; 
return  key; 


page.h 


#ifhdcf  pagc_h 
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#define  page_h 

#include  <interViews/Graphic^icture.h> 

//  Dec)  arc  imported  types, 
class  PictS  election; 

//  A  Page  draws  a  grid,  picture,  and  boundary.  It  can  constrain 
//  points  to  lie  only  on  the  grid. 

static  const  int  GRID_DEFAULTSPAC1NG  =  8; 

class  Page  :  public  Picture  | 
public: 

Pagc(doublc  w,  double  h,  double  b.  Graphic*  =  nil); 

-PageO; 

Color*  GetBackgroundColorO; 
boolean  GetGridGravityO; 
double  GctGridSpacingO; 
boolean  GetGridVisibilityQ; 

PictSelection*  GctPictureO; 

void  SctGridGravity(boolean); 
void  SctGridSpacing(doublc); 
void  SetGridVisibility  (boo  lean); 
void  SetPicturc(PictS election*); 

void  Ccnter(float,  float,  float); 
void  Constrain  (Coo  rd&,  Coord&); 
void  ToggleOrientationO; 

protected: 

void  getExtent(float&,  float&,  float&,  float&,  float&,  Graphic*); 

void  draw(Canvas*,  Graphic*); 
void  drawGrid(Canvas*,  Graphic*); 
void  drawBoundary (Canvas*,  Graphic*); 

void  drawClippcd(Canvas*,  Coord,  Coord,  Coord,  Coord,  Graphic*); 
void  drawGridC  lipped  (Canvas*,  Coord,  Coord,  Coord,  Coord,  Graphic*); 
void  drawPicturcC  lipped  (Canvas*,  Coord,  Coord,  Coord,  Coord,  Graphic*); 
void  drawBoundaryClipped (Canvas*,  Coord,  Coord,  Coord,  Coord,  Graphic*); 

int  I>cfincPoints(Coord,  Coord,  Coord,  Coord,  Graphic*); 

double  pagewidth;//  stores  exact  width  of  page 
double  pageheight;// stores  exact  height  of  page 
int  pgwidth;//  stores  integral  width  of  page 
int  pgheight;//  stores  integral  height  of  page 
PBrush*  border,//  stores  brush  for  drawing  boundary 
boolean  gravity;//  will  constrain  points  to  grid  if  true 
boolean  visibility;//  will  draw  grid  points  if  true 
double  spacing_pixcls;//  stores  spacing  in  units  of  pixels 
double  spacing_points;// stores  spacing  in  units  of  printer's  points 
Coord*  X,  *y;// stores  grid  points 

Graphic*  grid_gs;//  stores  attributes  for  drawing  grid/boundary 
Transformer*  gridjt;//  stores  matrix  for  drawing  grid/boundary 
PictSelection*  picture;// stones  picture 


I; 

//  Define  access  functions  to  get  and  set  members'  values. 

inline  boolean  Page::GetGridGravity  0  { 
return  gravity; 

} 

inline  double  PageriGetGridSpacing  0  I 
return  spacing_points; 

} 


inline  boolean  Page  ::GetG  rid  Visibility  0  I 
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return  visibility; 

} 

inline  PictSelection*  Page::GetPicture  0  { 
return  picture; 

} 

inline  void  Pagc::SetGridGravity  (boolean  g)  { 
gravity  =  g; 

) 

inline  void  Page:  :SetG  rid  Visibility  (boolean  v)  { 
visibility  =  v; 

} 

#endif 


page.c 


#define  _POSIX„SOURCE 
#includc  "ipainth" 

#includc  "page.h’' 

#inctude  "slpicLh" 

#include  <InterVicws/StdAnathJi> 

#include  <dnterVicws/Graphic/lines.h> 

#include  <InterViews/Graphic4>olygons.h> 

#includc  <InterViewsAjraphic^til.h> 

#include  <Inter\^cws/canvas.h> 

#inc!ude  <IntcrViews^aintcr.h> 

#include  <IntcrViewsAransformcr.h> 

//  Page  starts  out  with  gravity  disabled,  spacing  set  to  the  default 
//  value,  visibility  disabled,  and  an  anpty  picture. 

Page:  J^age  (double  w,  double  h,  double  b,  Graphic*  gs) :  (gs)  { 
pagewidth  =  w; 
pagehcight  =  h; 
pgwidth  =  round(w); 
pgheight  *5  round(h); 
border  =  new  PBrush(Ox{fff,  round  (b)); 
gravity  =  false; 
spacing_pixels  «  0.0; 
spacing_points  =  0.0; 
visibility  =  false; 

X  =  y  =snil; 

SctG  ridSpacing(G  RID_pEFAULTSPACING ); 

grid_gs  =  new  Full  Graphic; 

grid_tt  =  new  Transformer, 

gri  d_gs->SetB  rush  (psinglc); 

grid_gs->SctColors(pblack,  p white); 

gri  d_gs->SetPattcm^solid); 

gri  d_gS'>SetTrans  fo  rmcr(grid_tt) ; 

grid  _gs->FillBg(true); 

picture  =  nil; 

SctPicture(nil); 
if  (GctTransformerO  =  nil)  { 

SclTransformcr(ncw  Transformer); 

} 

I 

Page::~Pagc  0  I 
delete  border; 
delete  x; 
delete  y; 

//  delete  grid_gs; 

1 

//  GctBackgroundColor  gets  the  background  color  for  Drawing  View. 

Color*  Pagc:;GctBackgroundColor  0  I 
PColor*  bg  s=  grid_gs->GctBgColor(); 
return  *bg; 

I 


//  SetPicture  replaces  the  old  picture  with  a  new  picture  (creating  an 
//  empty  one  if  necessary)  and  deletes  the  old  picture. 

void  Page::SetPicture  (PictS election*  newpic)  { 
if  (ncwpic  “  nil)  { 
ncwpic  =  new  PictSelection; 

} 

if  (picture  !-  nil)  { 

Rcmove(picture); 
delete  picture; 

} 

picture  =  newpic; 

Append(picture); 

} 

//  SctGridSpacing  changes  the  spacing  between  the  grid  points,  which 
//also  requires  reallocating  the  number  of  points  in  the  grid. 

void  Page::SetGridSpacing  (double  p)  { 
if  (spacing_points  !=  p)  { 
spacing_points  =  p; 

spacing^pixels  s=spacing_points  *  points; 
delete  x; 
delete  y; 

int  x_count  =  int(pagewidth/spacing_pixcls)  +  1; 
int  y_count  =  int(pagcheight/spacing_pixcls)  +  1; 
int  count  =  x_count  *  y_count; 

X  =  new  Coord[count]; 
y  =  new  Coord[countj; 

} 

} 


//  Center  i^laces  the  page's  matrix  with  a  freshly  generated  matrix 
//  to  center  the  page  in  the  window  and  get  rid  of  accumulated 
//  roundoff  errors. 

void  Pagc::Center  (float  mag,  float  wincx,  float  wincy)  { 
Transformer*  t  =  GetTransfomierO; 
float  cx,  cy; 

if  (t->Rotated90())  { 

*t  K  identity; 

ToggleOrientationO; 

)  else  { 

*t  =  identity; 

} 

GetCcntcr(cx,  cy); 

Scale(mag,  mag,  cx,  cy); 

Translatc(wincx  -  cx,  wincy  -  cy); 

) 


//  Constrain  replaces  the  given  point  with  the  closest  grid  point  if 
//  gravity  has  been  enabled. 

void  Page: Constrain  (Coord&  x,  Coord&  y)  { 
if  (gravity)  { 
float  xO,  yO; 

grid_tt->InvTransfonn(float(x),  float(y),  xO,  yO); 
xO  s=  round(round(xO/spacing_pixcls)  *  spacing_pixels); 
yO  =  round(round(yO/spacing_pixcls)  *  spacing_pixels); 
grid_tt->Transfonn(xO,  yO,  xO,  yO); 

X  *=  round(xO); 
y  =  iDund(yO); 

I 

I 

//ToggleOrientation  examines  the  picture's  matrix  to  see  what  state 
//  it  is  in  and  flips  the  matrix  to  the  other  state. 

void  Page::TogglcOrientation  0  I 
Transformer*  t  =  GetTransfomierO; 
float  1,  b,  dx.  dy; 

if  (t->Roiatcd90())  { 
t->Transform(0.0,  -pagewidth,  dx,  dy); 
t->Transform(0.0, 0.0, 1,  b); 


Translatc(dx  - 1,  dy  -  b); 

Rotate(90.0,  l,b); 

}  else  { 

t->TransfoiTn(0.0, 0.0, 1,  b); 
t->Traiisfonn(0.0,  pagewidth,  dx,  dy); 

Rotatc(-90.0, 1,  b); 

Translate(dx  - 1,  dy  -  b); 

) 

} 

//  getExtwit  returns  the  page's  dimensions  as  its  extent  instead  of 
//  returning  the  extoit  of  its  picture  so  idraw's  panner  will  always 
//  show  the  page's  extent,  not  the  picture’s  extent 

void  Page::getExtcnt  (float&  1,  float&  b,  float&  cx,  float&  cy, 
float&  tol,  Graphic*  gs)  { 
float  dummyl ,  dummy2; 

transformRcct(0.0,  0.0,  pagewidth,  pageheight,  1,  b,  dummyl,  dummy2,  gs); 
transform  (pagcwidth/2,  pagchci^t/2,  cx,  cy,  gs); 
tol  s=0; 

} 

//  draw  draws  the  grid,  picture,  and  boundary. 

void  Page:;draw  (Canvas*  c.  Graphic*  gs)  { 
concatTransformcrfnil,  gs->GctTransfonnerO,  grid_tt); 
drawGrid(c,  grid _^); 

Picture:  :draw(c,  gs); 
drawBoundary(c,  grid_gs); 

} 

//  drawGrid  passes  the  work  off  to  drawGridClipped. 

void  Pagc::drawGrid  (Canvas*  c.  Graphic*  gs)  { 

Coord  xmax  -  c->Width(); 

Coord  ymax  =  c->HcightO; 
drawGridClippcd(c,  0, 0,  xmax,  ymax,  gs); 


//  drawBoundary  draws  the  boundary  around  the  page. 

void  Pagc::drawBoundary  (Canvas*  c.  Graphic*  gs)  { 
gs->SetBnjsh(bordcr); 
update(gs); 

pRect(c,  0, 0,  pgwidth,  pgheight); 

1 

//  drawClippcd  draws  part  of  the  grid,  picture,  and  boundary, 
void  Page::drawClipped  ( 

Canvas*  c.  Coord  1,  Coord  b,  Coord  r.  Coord  t,  Graphic*  gs 

){ 

concatTransformcr(nil,  gs->GetTransformcrO,  grid_tt); 
drawGridClippcd(c,  1,  b,  r,  t  grid _gs); 
drawPicturcClipped(c,  1,  b,  r,  t,  gs); 
drawBoundaryClipped(c,  1,  b,  r,  t,  grid_gs); 

I 

//  drawGridClipped  grids  the  given  area  with  points  if  visibility  has 
//  been  enabled.  It  sends  the  points  in  chunks  of  MAXCHUNK  points 
//  each  because  Xlib  docs  not  yet  break  up  too>big  requests. 

void  Pagc::drawGridClippcd  (Canvas*  c.  Coord  1,  Coord  b.  Coord  r,  Coord  t 
Graphic*  gs)  { 
if  (visibility)  | 
gs->SetB  rush  (psingle) ; 
update(gs); 

int  ntota!  =  DefinePoints(l,  b,  r,  t  gs); 
int  nsent  =  0; 
while  (nsent  <  ntotal)  { 
const  int  MAXCHUNK  =  6000; 
int  nchunk  «  min(MAXCHUNK,  ntotal  -  nsent); 
pMuItiPoint(c,  &x [nsent],  &y [nsent],  nchunk); 
nsent  +*  nchunk; 

1 
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} 


//  diawPicturcClipped  goes  right  ahead  and  draws  the  picture,  letting 
//  it  decide  if  its  extent  intersects  the  clipping  box. 

void  Page:;drawPictureQippcd  ( 

Canvas*  c,  Coord  1,  Coord  b,  Coord  r.  Coord  t.  Graphic*  gs 

){ 

register  RefList*  i; 

Graphic*  gr, 

FullGraphic  gstemp; 

Transformer  ttemp; 

gstonp,  SetTransfoimerf&ttemp); 

for  (i  «  refList->RrstO;  i  !*  retist->End();  i  «i->Ncxt())  { 
gr  =  gctGraphic(i); 
concatGraphic(gr,  gr,  gs,  Agstemp); 
drawClippedGraphic(gr,  c,  1,  b,  r,  t,  &gstcmp); 

gstemp.  SetTransfomierfnil);  /*  to  avoid  deleting  ttemp  explicitly  */ 

} 

//  drawBoundaryClipped  draws  part  of  the  boundary  around  the  page. 

void  Page::drawBounclaryClippcd  ( 

Canvas*  c.  Coord  1,  Coord  b.  Coord  r,  Coord  t.  Graphic*  gs 

){ 

BoxObj  clipBoxO,  b,  r,  t); 

Coord  xO,  yO,  xl,  yl,  x2,  y2,  x3,  y3; 
transformfO,  0,  xO,  yO,  gs); 
transform  (0,  pgheight,  xl,  yl,  gs); 
transfoim(pgwidth,  0,  x2,  y2,  gs); 
transform^gwidth,  pgheight,  x3,  y3,  gs); 

LincObj  lLine(xO,  yO,  xl,  yl); 

LincObj  bLincfxO,  yO,  x2,  y2); 

LineObj  iinc(x2,  y2,  x3,  y3); 

LincObj  tLinc(xl,  yl,  x3,  y3); 

gs->SetBrush(border); 

updatc(gs); 

if  (clipBox.IntcrsectsflLine))  { 
pLine(c,  0, 0,  0,  pgheight); 

I 

if  (clipBox.InterscctsCbLine))  { 
pLinc(c,  0, 0,  pg width,  0); 

) 

if  (clipBox.Intcrsccts(rLinc))  { 
pLinc(c,  pgwidth,  0,  pgwidth,  pgheight); 

) 

if  (clipBox.IntersectsftLine))  { 
pLinc(c,  0,  pgheight,  pgwidth,  pgheight); 

} 

I 

//  DefinePoints  defines  just  mou^  points  to  grid  the  given  area. 

int  Page  "DefinePoints  (Coord  1,  Coord  b.  Coord  r,  Coord  t.  Graphic*  gs)  { 
float  xO,  yO,  xl,  yl; 

invTransformRect(float(l),float(b),float(r),float(t),  xO,  yO,  xl,  yl,  gs); 
xO  -  round(xO/spacing_pixels)  *  ^acing_pixcls; 
yO  =  round(yO/spacing_pixels)  *  spacing  pixels: 
xO  *=max(float(0.0),  xO); 
yO  «  max(float(0.0),  yO); 

X 1  c  min(x  1 ,  (fioat)pagewidth); 
yl  «mm(yl,  (float^ageheight); 
int  x_count  *int((xl  -  x0)/spacing  pixels)  +  1; 
int  y_count  «int((yl  -  y0)/spacing^ixcls)  +  1; 
int  count  *  x_count  *  y^count; 

for  (int  i  «  0;  i  <  x_count;  i++)  { 

Coord  ix  *»  round(x0  +  i*spacing_pixcls); 
for  (int  j  » i;  j  <  count;  j  +*  x_count)  | 

x(j] 

} 

1 
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for  (i  =  0;  i  <  y_couiit;  i++)  { 

Coord  iy  *  round(yO  +  i*spacing^ixds); 

for  (int  j  i  *  x_count;  j  <  (i+1)  ♦  x_count;  j++)  { 

yU]=iy; 

) 

return  count; 

) 


paneLh 

#ifndcf  paneLh 
#definc  paneLh 

#include  "higWightcr.h" 

//  Declare  imported  and  uscd-bef ore-defined  types. 

class  Editor; 
class  PancUtcm; 

//  A  Panel  displays  several  items  but  highlights  only  one  item. 

class  Panel :  public  HighlighterParent  { 
public: 

PancIQ; 

void  Entcr(PancIItcm*,  char); 

Panelltem*  LookUp(char); 

void  SctCuKPanelltcm*); 

PancUtcm*  GctCur(); 

void  PerformCurTcntFunction(Evcnt&); 
void  PcrformTcmporaryFunction(Evcnt&,  char); 

protected: 

PaneUtem*  cur,// stores  currently  selected  item 

PancUtem*  itcms[128];//  stores  items  by  their  associated  diaracter 


); 


//  A  PaneUtem  displays  two  text  labels  and  perfonns  a  function. 

class  PancUtcm  :  public  Highli^tcr  { 
public: 

PancUtem(Panel*»  const  char*,  const  char*,  char.  Editor*); 
-PancUtcmO; 

void  HandJe(Evait&); 

virtual  void  Pcrform(Evcnt&); 
virtual  void  SctMessage(); 

protected: 

void  ReconfigO; 

void  Rcdraw(Coord,  Coord,  Coord,  Coord); 
void  RcsizcQ; 

Panel*  panel;//  stores  panel  which  this  item  belongs  to 
char*  name;//  stores  item’s  text  label 
char*  key,//  stores  label  of  key  which  selects  this  item 
char*  msg;  //  stores  message  shown  in  message  block 

Coord  namc_x,  namely;//  stores  position  at  which  to  display  name 
Coord  kcy_x,  key_y;//  stores  position  at  which  to  display  key 
Coord  side;//  size  of  largest  square  fitting  in  canvas 
Coord  offx;//  horizontal  offset  needed  to  center  square 
Coord  olTy,// vertical  offset  needed  to  center  square 


Editor*  editor,  //  stores  editor  to  be  used  in  setting  message 

}; 


#endif 

paneLc 

#includc  "dfd_defs,h" 

#include  "editor.h" 

#include  ”istrmg.h'' 
fincludc  "panelii" 

#include  <interViews/event.h> 

#include  <interViews/font,h> 

#include  <lntcrViews4>aintcrJi> 

#include  <InterViews/scnsor.h> 

#include  <interVicws/shapc.h> 

#includc  <ctype.h> 

#includc  <IntcrViews/Std/stdio.h> 

//  Define  the  maximum  value  of  any  diaractcr. 

static  const  int  MAXCHAR  =  127; 

//  Panel  starts  with  no  currently  highlighted  or  stored  items. 

Panel: iPanel  ()  { 
cur  =  nil; 

for  (int  1  =  0;  i  <=  MAXCHAR;  i*H-)  { 
itans[i]  =  nil; 

} 

} 


//  Enter  stores  an  item  using  its  associated  character  as  its  index 
//  and  tells  it  it  can  get  its  highlight  painter  from  us. 

void  Panel ::Entcr  (PancUtem*  i,  char  c)  { 
if  (c  >=  0  &&  c  <=  MAXCHAR)  { 
items[c]  =  i; 

) 

i->SetHighlighterParent(this); 

) 


//  LookUp  returns  the  item  associated  with  the  given  character. 

Panelltem*  Panel iJLookUp  (char  c)  { 

Panelltem*  i  =  nil; 
if  (c  >=  0  &&  c  <=  MAXCHAR)  { 
i  =  itemsfej; 

} 

return  i; 

} 

//  SetCur  sets  the  currently  highlighted  item.  The  panel  highlights 
//  only  one  item  at  any  time. 

void  Panel  ::SetCur  (Panelltem*  item)  { 
if  (cur  !=  nil)  ( 
cu  r->Highlight(falsc); 

1 

cur  =  item; 
if  (cur  l=nil)  { 
cu  r->HighIight(tru  e); 

I 


//  GetCur  returns  the  currently  highli^tcd  item. 

PancUtem*  Panel ::GetCur  ()  { 
return  cur, 

} 

//  Perform CurrcntFunction  tells  the  currently  highlighted  item  to 
//  perform  its  function. 

void  PanehiPerformCurrcntFunction  (Evcnt&  c)  { 
if  (cur  I«  nil)  { 


cur->Perform(e); 

} 

) 

//  PerfoimTemporaryFunction  temporarily  selects  the  item  associated 
//  with  the  given  character  imd  tells  it  to  perform  its  fimction. 

void  Panel:  J’crformTcmporaryFunction  (Evcnt&  e,  char  c)  { 
PancUtem*  tmp  =  LookUp(c); 
if  (tmp  !=  nil)  { 

Panditem*  prev  =  cur, 
tmp->S  etMcssageO ; 

SctCur(tn^); 
tmp->Perform(e); 
if  (prev  !*=  nil)  { 

prev->S  ctMcssageO ; 

SctCur(prcv); 

) 

I 

) 


//  Panelltcm  stores  the  panel  it  belongs  to  and  its  text  labels. 

PanelItem::PanclItem  (Panel*  p,  const  char*  1,  const  char*  k,  char  c, 

Editor*  e)  { 

p->Entcr(this,  c); 
panel  ^  p; 

editor  =  e; 

msg  =  new  diar  [MAXMSGLEN+1]; 
name  =  strdup(l  ?  1 :  ""); 
key  “  strdup^  ?  k  :  ""); 
input  *s  updownEvents; 
input->RefcrcnccO ; 

} 


//  Free  storage  allocated  to  store  the  text  labels. 

PanelItem::~PaneUtan  Q  { 
delete  name; 
delete  key; 

} 


//  Handle  highlights  the  item  if  the  user  clicks  on  it  or  types  its 
//  associated  character  (mapped  by  the  program). 

void  Panelltcm:  JIandle  (Evcnt&  e)  { 
switch  (c.cvcntTypc)  ( 
case  DownEvent: 
case  KeyEvent: 

SetMcssagcO; 
panel ->S  etCu  r(  this) ; 
break; 

default: 

break; 

} 

1 

//  sets  the  value  of  the  message  in  the  message  block 

void  Panelltcm: :SetMessageO  { 

//  define  it  in  your  subclass 

} 

//  Perfonn  performs  the  item's  function. 

void  Panelltcm: iPcrfonn  (Event&)  ( 

//  define  it  in  your  subclass 

) 

//  Reconhg  pads  the  item's  shape  to  accomodate  its  text  labels. 

//  Basing  padding  on  the  font  in  use  ensures  the  padding  will  change 
//  proportionally  with  changes  in  the  font’s  size. 

static  const  float  WIDTHPAD  =  1.5;  //  fraction  of  font>>Width(EM) 
static  const  float  HTPAD  -  0.77;  //  fraction  of  font->Height() 
sutic  const  float  KEYPAD  =  176,;  //  fraction  of  font->Width(EM) 


static  const  char*  EM  *=  '*111’';  //  widest  alphabetic  character  in  any  font 


void  PanelIteni::Reconfig  ()  { 

Highlighter: :  Rcconfi  g() ; 

Font*  font  *=  output-i^etFontO; 
int  xpad  -  round  (WIDTHPAD  *  font->Width(EM)); 
int  ypad  =*  round(HTPAD  *  font->Hcight()); 
shapc->width  =  font->Width(name)  +  (2  *  xpad); 
shape->height  =  font->Height()  +  (2  *  ypad); 
shape->Rigid(2  *  xpad,  hfil,  2  *  ypad,  0); 

) 


//  Redraw  displays  the  text  labels. 

void  PanelItcm::Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 
output“>ClcarRect(canvas,  1,  b,  r,  t); 
ou^j  ut->FillB  g(false); 

output->Text(canvas,  name,  name_x,  name_y); 
output->Text(canvas,  key,  kcy_x,  key _y); 
outp  ut->FillB  g(true); 

} 

//  Resize  calculates  the  text  labels'  positions.  For  the  convmience 
//  of  subclasses  which  want  to  draw  graphic  labels  centered  in  the 
//canvas  and  as  large  as  possible  while  maintaining  a  1:1  aspect 
//ratio.  Resize  also  calculates  side,  offx,  and  offy  which  define  the 
//  largest  possible  square  centered  in  the  canvas. 

void  PanelIt«n::Resize  0  I 
Font*  font  =  output“>GctFont(); 
name_x  -  max(0,  (xmax  -  font->Width(namc)  +  1)  /  2); 
namc_y  (ymax  -  font->Height()  +  1)  /  2; 
int  pad  =  round{KEYPAD  *  font->Width(EM)); 
key_x  =  xmax  -  font->Width(kcy)  -  pad; 
kcy_j  =  pad; 
side  =  min(xmax,  ymax); 
offx  =!  (xmax  -  side)  /  2; 
offy  =  (ymax  -  side)  /  2; 

I 


pdmenu.h 

#ifhdef  pdmcnu_h 
#define  pdmcnu_h 

#include  "highlighterJi" 

//  Declare  imported  and  used-before-defined  types. 

class  PuIIDownMenuButton; 

class  PullDownMcnuActivator, 
class  PullDownMcnuCommand; 

//  A  PullDownMcnuBar  displays  several  activators  and  coordinates  which 
//  activator  will  open  its  menu, 

class  PullDownMenuBar :  public  HighlightcrParrait  { 
public: 

Pu  llDo  wnMcnuBarQ; 

^Pu  llDo  wnMcnuB  ai() ; 
void  Enter(PullDownMenuButton*); 

boolean  Contains  (Interactor*); 

boolean  MenuActivcQ; 

boolean  MenuShouldActivatc(IhjllDownMcnuButton*); 

void  McnuActivate(PullDownMenuButton*); 
void  MenuDeactivateO; 

protected: 
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void  GrowButtonsO; 


PullDownMwiuButton*  cur;//  stores  currently  active  activator 
int  sizebuttons;//  stores  current  size  of  dynamic  array 
int  numbuttons;//  stores  number  of  activators  in  array 
PullDo  wnMcnuButton  *  ♦ 
buttons;//  stores  bar's  interior  activators 


}; 


class  PullDownMoiuButton  :  public  Highlighter  { 
public: 

PullDownMenuButton(PullDownMenuBar*,  const  char^); 
PullDownMcnuButton (Pul IDownMenu Activator*,  const  char*); 

~PullDo  wnMenuB  utton  0 ; 

virtual  boolean  Contains(Intcractor  *)  { return  false; } 
virtual  void  Opcn()  (Highlight(true); } 
virtual  void  Close()  (Highlight(false);  | 

virtual  void  Executc(Evcnt&)  { ) 

protected: 

PullDownMcnuBar*  barParent;//  stores  bar  containing  this  activator 
PullDownMoiuActivator*  buttonParent; 

virtual  void  RcconfigO; 

virtual  void  Rcdraw(Coord,  Coord,  Coord,  Coord); 
virtual  void  RcsizcQ; 

char*  name;//  stores  activator’s  text  label 

Coord  name_x,  namely;// stores  position  at  which  to  display  name 

}; 


//  A  PullDownMenuActivator  displays  a  text  label  and  opens  a  menu  when 
//  you  activate  it 

class  f\illDownMenuActivator  :  public  PullDownMcnuButton  { 
public: 

PullDownMcnuActivator(PullDownMcnuBar*,  const  char*); 
PullDownMenuActivator  (PullDownMenuActivator*,  const  char*); 

~Pu  llDo  wnMenuActi  vato  r(); 

void  Enier(PulLDownMcnuButton*); 
boolean  Contains  (Interactor  *child); 

void  SctMcnu(Sccne*); 
void  Handlc(Evcnt&); 

void  OpenO; 
void  CloseO; 
void  ChainQoseO; 

protected: 

void  HandlcBar(Evcnt&); 
void  HandlcButton(Evcnt&); 

boolean  IsOpen; 

Scene*  menu;// stores  menu  to  be  opened  when  activated 
void  GrowButtonsO; 

int  sizebuttons;//  stores  current  size  of  dynamic  array 
int  numbuttons;//  stores  number  of  commands  in  array 
PullDownMwiuButton** 
buttons;//  stores  activator's  interior  commands 


); 


//  A  PullDownMcnuCommand  displays  a  text  label  and  executes  a  command. 
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class  PulLDownMcnuCommand  :  public  PullDownMcnuButton  { 
public: 

PullDownMenu  Comm  and  (PullDownMenuActivator*,  const  char*,  const  char*); 
PullDownMenu Command (PullDownMcnuBar*,  const  char*,  const  char*); 

~Pu  llDo  wnMenuCommandQ; 

//****♦*♦♦♦  change  by  Eagle  15  Sep  94,  made  this  a  virtual  function 
virtual  void  Handle(Event&); 

virtual  void  Executc(Event&); 

protected: 

void  ReconfigO; 

void  RedrawfCoord,  Coord,  Coord,  Coord); 
void  ResizeO; 

PullDownMenuActivator* 

activator;//  stores  activator  which  this  cmd  belongs  to 
char*  key;//  stores  label  of  key  which  selects  this  cmd 

Coord  key_x,  kcy_y;//  stores  position  at  which  to  display  key 


}; 


//  A  PullDownMenuDivider  displays  a  horizontal  line  extending  the  fiill 
//  width  of  the  menu,  dividing  it  into  two  submenus. 

class  PullDownMenuDivider :  public  PullDownMenuCommand  { 
public: 

Pu  llDo  wnMenuDividerO; 
protected: 

void  RedrawfCoord,  Coord,  Coord,  Coord); 


1; 


#endif 

pdmenu.c 

#include  "istring.h'' 

#include  "pdmcnu.h’‘ 

#includc  <InterVicws/cventh> 

#include  <IntcrVicws/fontJh> 

#includc  <InterVicws/framcJi> 

#includc  <IntcrVicws^aintcr.h> 

#include  <3ntcrViews/scnsor.h> 

#inciude  •<dntcrVicws/shapc.h> 

#include  <IntcrVicws/worId.h> 

#mclude  <bstring.h> 

/*  Define  the  initial  number  of  elements  to  allocate  space  for,  */ 
static  const  int  TNrnAT.ST7R  =s  15; 

/* 

*  PullDownMcnuBar  starts  with  no  curroitly  active  or  stored 

*  activators  althou^  it  allocates  some  initial  space  to  store  them. 

*/ 

PullDownMcnuBar  :PulIDownMcnuBar  0  '  cur(0)  { 
sizebuttons  =  IN111ALSI21E; 
numbuttons  «  0; 

buttons  =  new  PullDownMcnuButton  ♦[sizebuttons]; 

} 


f* 

*  Free  storage  allocated  for  the  dynamic  array. 

V 

PullDownMcnuBar:~PullDownMcnuBar  0  | 
delete  Q  buttons; 
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) 

/» 

*  Enter  stores  an  interior  activator  and  tells  it  it  can  get  its 

*  hi^light  painter  from  us. 

V 

void  PullDownMenuBar:£nter  (PullDownMenuButton*  act)  { 
if  (numbuttons  =  sizcbuttons)  j 
GrowButtonsQ; 

} 

buttons  [numbottons++]  =s  act; 

) 


/* 

Contains  returns  true  if  the  child  is  one  of  the  bar's  activators 
*  or  one  of  the  activators'  commands. 

V 

boolean  Pul  lDownMenuBar::Con tains  (Interactor*  child)  { 
for  (int  1 5=  0;  i  <  numbuttons;  i++)  { 
if  ((buttons[i]  child)  ii  (buttons[i]-><!!ontains(chiId)))  { 
return  true; 

) 

) 

return  false; 

) 


/* 

♦  MenuActivc  returns  trae  if  any  of  the  bar's  activators  have  opaicd 

*  a  moiu. 

V 

boolean  PullDownMenuBar::MenuActive  Q  { 
return  cur  ?  1  :  0; 

} 


/* 

*  MenuShouldActivate  returns  trae  if  any  of  the  bar's  activators 

*  EXCEPT  the  givon  one  have  opened  a  mmu. 

V 

boolean  PullDownMcnuBanrMcnuShouldActivate  (PullDownMaiuButton  *btn)  ( 
return  cur  &&  cur  !=  btn; 

) 


/* 

*  MenuActivate  highlights  the  given  activator  opens  the  activator's 

*  menu,  and  stores  it  as  the  currently  active  activator. 

V 

void  PullDownMenuBar::M«iuActivate  (PullDownMcnuButton*  act)  { 
act->Hi  ghlight(trac) ; 
cur  =  act; 

act“>Open0; 

} 


/* 

*  McnuDcactivate  closes  the  currently  active  activator's  menu, 

*  unhighlights  the  activator,  and  stores  no  more  active  activators. 

♦/ 

void  PulIDownMenuBar::McnuDcactivate  0  I 
cur“>Closc(); 
cur->Highli  ght  (false) ; 
cur  =  0; 

1 


/* 

•  Grow  Activators  increases  the  dynamic  array's  size  to  make  room  for 

*  more  activators  to  be  stored. 

*l 

void  PullDownMenuBar::GrowButtons  Q  ( 

PullDownMcnuButton**  oldacts  »  buttons; 
sizebuttons  +=  INrnALSIZE/2; 
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buttons  =  new  PullDownMenuButton*[sizebuttons]; 
bcopy(ol(iacts,  buttons,  numbuttons  *  sizeof(PulIDownMenuButton*)); 
delete  oldacts; 

} 

PullDownMenuButton;’J*ullDownMaiuButton  (PullDownMenuActivator*  b, 

const  char*  n) : 

barParent(b->baiParcnt),  buttonParent(b)  { 
name  =  strdup(n  ?  n  : 
input  =  new  Sensor(onoffEvcnts); 
input->CatchButton(DownEvent,  LEFTMOUSE); 
mput->CatchButton(UpEvcnt,  LEFTMOUSE); 

SctHi  ghlightcrParcnt(ba  rPa  rent) ; 

} 

PullDownMenuButton::PullDownMcnuButton  (PullDownMenuBar*  b,  const  char*  n) : 
barParcnt(b),  buttonParent(O)  { 
name  *=  strdup(n  ?  n  : '"'); 
input  new  Scnsoi^onofFEvcnts); 
input->CatchButton(DownEvcnt,  LEFTMOUSE); 
input“>CatchButton(UpEvcnt,  LEFTMOUSE); 

SetHighlighterParent(baiParent) ; 

} 


r 

*  Free  storage  allocated  for  members. 

•/ 

PullDownMcnuButton-'-PuIlDownMenuButton  ()  { 
delete  name; 

I 


/* 

*  Reconfig  pads  the  activator's  shape  to  accomodate  its  text  label. 

*  Basing  padding  on  the  font  in  use  ensures  the  padding  will  change 

*  proportionally  with  changes  in  the  font's  size. 

*/ 

static  const  float  WIDTHPAD  a  1.0;/*  fraction  of  font->Width(EM)  */ 
static  const  float  CMDHTPAD  *  0.1;/*  fraction  of  font->HcightO  */ 
static  const  float  ACIUTPAD  =  0.2;/*  fraction  of  font->Hcight()  */ 
static  const  char*  EM  =  'Vn";  /*  widest  alphabetic  character  in  any  font  */ 

void  PullDownMcnuButton “Reconfig  0  { 

Highli^ter:  iReconfi  gO ; 

Font*  font  =  output->GctFont(); 
int  xpad  =  round  (WIDTHPAD  *  font->Width(EM)); 
int  ypad  =  round( AC  1 HTPAD  *  font“>Hcight()); 
shape->width  =  font->Width(name)  +  (2  *  xpad); 
shape->hcight  =  font->Hcight()  +  (2  *  ypad); 
shape->Rigid(shape-> width  -  xpad,  0,  2  *  ypad,  0); 

I 


/* 

*  Redraw  displays  the  text  label. 

V 

void  PullDownMcnuButton  "Redraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 
output->ClearRcct(canvas,  1,  b,  r,  t); 
output->Tcxt(canvas,  name,  name_x,  namc_y); 

} 

/* 

*  Resize  calculates  the  text  label's  position. 

*/ 

void  PullDownMcnuButton  “Resize  ()  { 

Font*  font  *  output->GctFont(); 

name_x  =  max(0,  (xmax  -  font->  Width  (name)  +  1)  /2); 

name_y  «  (ymax  -  font->Hcight()  +  1)  /  2; 

I 


/* 

•  PullDownMcnu Activator  stores  the  bar  it  belongs  to  and  its  text 

•  label.  It  starts  off  with  an  empty  menu  and  no  stored  commands 
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*  although  it  allocates  some  initial  space  to  store  the  commands.  It 

*  must  catch  the  same  mouse  button  JhallDownMenuCommand  catches. 

*/ 

PullDownMenuActivator::PullDownMcnuActivator  (PullDownMenuBar*  b, 
const  char*  n)  :  PullDownMenuButton(b,n),  IsOpcn  (false)  { 
b->Entcr(this); 
menu  -  new  ShadowFramc; 
mcnU“>SetCanvasType(CanvasSavcUnder); 
sizebuttons  =  INmALSIZE; 
numbuttons  =  0; 

buttons  =  new  PullDownMenuButton'*' [sizebuttons]; 

} 


PullDownMcnuActivator::PullDownMenuActivator  OPullDownMcnuActivator*  b, 
const  char*  n)  :  PullDownMenuButton (b^i),  IsOpen (false)  { 
b->Entcr(this); 
menu  =  new  Shade  wFrame; 
menu ->SetCanvasType(CanvasSaveUnder) ; 
sizebuttons  INTTIALSIZE; 
numbuttons  =  0; 

buttons  =  new  PullDownMCTuButton*[sizebuttons]; 

) 

r 

*  Free  storage  allocated  for  members. 

♦/ 

PullDownMcnuActivatoni-PullDownMenuActivator  Q  { 
delete  buttons; 
delete  menu; 

I 


/♦ 

*  SetMenu  sets  the  moiu's  actual  contents. 

V 

void  PullDownMenuActivator::SetMcnu  (Scene*  box)  { 
menu->Insert(box); 

} 


void  PullDownMeouActivator::ChainQose()  { 

Closc(); 

if  (buttonParent) 
buttonParent'>ChainClose() ; 
else  if  (barParwit->MenuActive()) 
barPa  rent->MenuDeactivate(); 

} 

/* 

*  Handle  works  together  with  the  bar  to  determine  whether  any 

*  activator  has  opoied  or  should  open  a  moiu  and  accordingly  tells 

*  the  bar  to  deactivate  or  activate  an  activator. 

*/ 

void  PullDownMcnuActivator::Handlc(Evcnt  &c)  { 
if  (buttonParent) 

HandleButton(e); 

else 

HandleBar(e); 

I 

void  PullDownMcnuActivator::HandleButton  (Event&  c)  { 
switch  (e.eventTypc)  | 
case  UpEvent: 

ChainCloscO; 

break; 

case  OnEvent: 

OpenO; 

break; 

case  OffEvent: 
while  (1)  { 

Rcad(c); 

if  (c.cvcntTypc  »=  OnEvent) 
if  ((c.target  1*  this)  &&  I(Contains(c.targct)))  { 

CloscQ; 

break; 
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} 

if  (e.eventTypc  =  UpEvcnt)  { 
ChainCloscQ; 
break; 

} 

e.target->Handle(e) ; 

} 

c.  targct->Hand!  c(c); 
break; 

) 


void  PullDownMenuActivator::HandIcBar  (Evcnt&  e)  { 
switch  (e.eventTypc)  { 
case  DownEvent; 
if  (!barParcnt->MenuActivc())  { 
barParcnt->McnuActi  vatc(this ); 
while  (e.eventTypc  !=  UpEvcnt)  { 

Read(e); 

if  (e.eventTypc  =  UpEvcnt) 
barParent->McnuDcactivatc(); 
if  (barParait->Contains(c.taigct)) 
e.targct->Hand!c(c); 


break; 

case  UpEvwit: 
break; 

case  OnEvent: 

if  (barParcnt->MaiuShouldActivatc(this))  { 
ba  rParent->McnuDcactivatcO; 
barParent->McnuActivatc(this) ; 

} 

Highlight(truc); 

break; 

case  OffEvent: 
if  (llsOpcn) 

Highiight(fa]se); 

break; 

) 

I 

/* 

*  Enter  stores  an  interior  command  and  tells  it  it  can  get  its 

*  highlight  painter  from  our  bar  like  us  too. 

•/ 

void  PullDownMcnuActivatoridEntcr  (PuIlDownMcnuButton*  cmd)  { 
if  (numbuttons  —  sizebuttons)  { 

GrowButtonsO; 

I 

buttons  [numbuttons++] «  cmd; 
cmd->SctHighli  ghterParcnt(barPa  rent); 

} 

f* 

*  Contains  returns  true  if  the  command  is  one  of  the  activator’s 

*  commands. 

*1 

boolean  PullDownMcnuActivator::Contains  (Intcractor*  cmd)  { 
for  (int  i  =  0;  i  <  numbuttons;  i++)  | 
if  ((buttons[i]  =cmd)  II  (buttons[i]->Contains(cmd))){ 
return  true; 

) 

I 

return  false; 

1 


Open  inserts  the  menu  into  the  scale  with  the  menu's  top  left 
•  comer  aligned  with  the  activator's  bottom  left  comer. 

V 

void  PuIlDownMcnuActivator::Opcn  0  { 

Pu  IlDo  wnMcnuButUm :  lOpenO ; 


if  (IsOpcn)  return; 

IsOpen  =  true; 

World*  world  =  GetWorldO; 

Coord  X  =  0; 

Coord  y  =  0; 
if  (buttonParent)  { 

X  =  shape“>width; 
y  s=  shape->height; 

} 

GetRelative(x,  y,  world); 
world->InscrtPopup{mcnu,  x,  y,  TopLcft); 

I 

I* 

*  Close  makes  the  activator's  menu  disappear. 

*l 

void  PullDownMenuActivator::Close()  { 

PullDo  wnMenuButton :  :CloseO ; 
if  (IsOprai)  { 

for  (int  i  =  0;  i  <  numbuttons;  i++) 
buttons  [i]->Close(); 

menU“>ParcntO->Removc(mcnu) ; 

} 

IsOpai  =  false; 

} 

/* 

*  GrowCoramands  increases  the  dynamic  array's  size  to  make  room  for 

*  more  commands  to  be  stored. 

*/ 

void  PullDownMenuActivatoniGrowButtonsQ  { 

PullDo  wnMenuButton**  oldcmds  =  buttons; 

sizebuttons  +=  INniALSI53E/2; 

buttons  ss  new  PullDownMenuButton*[sizcbuttons]; 

bcopy (oldcmds,  buttons,  numbuttons  *  5izcof(PulIDownMoDuButton*)); 

delete  oldcmds; 

I 

/* 

*  PuIlDownMenuCommand  stores  the  activator  it  belongs  to  and  its  text 

*  labels.  It  catches  only  one  mouse  button  to  prevent  the  user  from 

*  accidentally  executing  a  command  upon  another  button's  release. 

*/ 

PuIlDownMenuCommand:  J^JllDownMcnuCommand  (PullDownMenuActivator*  b, 
const  char*  n,  const  char*  k) :  PullDownMcnuButton(b4i)  ( 
if(bl=nil){ 
b->Entcr(this); 

} 

key«strdup(k?k:""); 

) 


PullDo wnMcnuCommand::PullDownMenuCommand  (PullDo wnMcnuBar*  b, 
const  char*  n,  const  char*  k) :  PullDownMcnuButton(bji)  { 
if(b!=nil){ 
b->Entcr(this); 

} 

key  =  sirdup(k  ?  k  : 

\ 

PullDownMcnuCommand::«PullDownMcnuCommand  0  { 
delete  key; 

I 

/* 

*  Highlight  or  unhi^light  the  command  when  the  mouse  passes 

*  over  and  execute  the  command  when  the  user  releases  the  button 

*  types  its  associated  character  (mapped  by  the  program). 

*/ 

void  PuIlDownMenuCommand: ^Handle  (Event&.  e)  { 
switch  (c.cvcntType)  { 
case  OnEvent: 
if  (! buttonParent)  { 
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if  (!barParait->M«iuActiveO) 
ffighlight(true); 

) 

else 

Highlight  (true); 
break; 

case  OfTEvcnt: 
Highlight(falsc); 
break; 

case  UpEvent: 
if  (IbuttonParent)  { 
if  (!barParcnt->MenuActivc()) 
Exccutc(c); 

} 

else 

Exccutc(c); 

Highlight(falsc); 
if  (buttonParcnt) 
buttonParent->ChainQoseO ; 
break; 

case  KeyEvcnt: 

//activate  r->FlushO; 

Executc(c); 

break; 

case  DownEvent: 
break; 

} 

} 


/* 

*  Execute  carries  out  the  command's  purpose. 

*1 

void  PullDownMcnuCommand:  Execute  (Evcnt&)  { 

/*  define  it  in  your  subclass  */ 

} 

r 

*  Reconfig  pads  the  command's  shape  to  accomodate  its  text  labels. 

V 

void  PullDownMcnuCommand:;Reconfig  ()  | 

Highlighter: ;  Reconfi  g() ; 

Font*  font  =  ou^ut->GetFont(); 
int  xpad  =  roundfWIDTHPAD  *  font->Width(EM)); 
int  ypad  «  round  (CMDHTPAD  *  font->Height()); 
shape‘>width  «  font->Width(name)  +  (2  •  xpad); 
shapc-> width  +=  font->Width(kcy)  +  (2  *  xpad); 
shapc“>hcight  =  font->Hcight()  +  (2  *  ypad); 
shape->Rigid(0,  hfil,  0, 0); 

I 

r 

*  Redraw  displays  the  text  labels. 

V 

void  PuIlDownMenuCommand::Redraw  (Coord  1«  Coord  b»  Coord  r.  Coord  t)  { 
Pu  IIDo  wnMcnuButton ; :  Rcdra  w(l  ,b»r,t); 
output->Tcxt(canvas,  key,  kcy_x,  kcy_y); 

I 

r 

*  Resize  calculates  the  text  labels'  positions. 

V 

void  PullDownMcnuCommand::Rcsizc  Q  I 
Font*  font «  output->GctFont(); 
int  xpad  s=  round(WI0THPAD  *  font->\Vidth(EM)); 
namc_x  «  xpad; 

namc_y  « (ymax  -  font->Hci^t()  +  1)  /  2; 
kcy_x  «  xmax  -  font ‘>Width  (key)  -  xpad; 
ltey__y  «  name_y; 

} 

r 

*  PullDownMcnuDivider  listens  to  no  events  so  it  will  neither 
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♦  highlight  itself  nor  execute  any  command. 

V 

PullDownMenuDividentPullDownMenuDivider  () : 

PuIlDownMcnuCommand((PullDownMenuBar  *)  nil,  nil,  nil)  { 
Listcn(noEvcnts) ; 

I 

/♦ 

*  Redraw  displays  a  horizontal  line  spanning  the  canvas. 

*/ 

void  PulIDownMenuDivider::Rcdraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 
output->QearRect(canvas,  1,  b,  r,  t); 

Coord  hy  =  ymax  /  2; 
output->Linc(canvas,  1,  hy,  r,  hy); 

} 


psdlconip.h 

/* 

*  This  file  contains  the  interafee  for  the  following  objects 

*  Graph  Component,  Vertex,  Operator,  Terminator,  Edge 

*  These  are  the  components  of  a  PSDL  graph.  Each  object 

*  contains  the  idraw  components  necessary  to  create  that 

*  object  in  the  editors  drawing.  GraphComponent  serves  as 

*  the  base  class  from  which  Vertex  and  Edge  arc  derived  directly. 

*  Operator  and  Terminator  are  further  derived  from  Vertex 

* 

♦  This  file  was  created  specifically  for  the  CAPS  graphic  editor. 

4< 

♦Created  by;  C.S*Eaglc 

♦  Last  changes:  November  9, 1994 

♦ 

V 

#ifhdef _ psdlcomp_h 

#dcfine _ psdlcomp_h 

#includc  <interViews/Std/stdio.h> 

class  Edge; 
class  EdgcList; 
class  Operator, 
class  TextBuffer, 
class  TcxtSclcction; 
class  EllipseSelection; 
class  BSpIineSelection; 
class  RectSelection; 
class  Selection; 

class  GraphComponent  { 
public: 

Graph Componcnt(Selection  ♦,TcxtS election*  =  0); 

-43  raph  ComponentO : 

void  SetLabel (TcxtSclcction*); 

TcxtSclcction  *GctLabcI(); 
char  •GetLabelStringO; 
char  *GctValidLabclString(); 
int  GetCIassIdQ; 

virtual  void  SetShape(Selection  *s); 

Selection  *GctShapeO  I  return  shape; } 

protected: 

Selection  *shapc; 

TcxtSclcction  •label; 

GraphComponent  *mc; 

I; 


class  Vertex  :  public  GraphComponent  { 
public: 

Vertex  (Selection *,TcxtSclccti on*  *=  0); 
-'Vertex  0; 

void  Setld(int  newld)  { id  =  ncwld; ) 
int  GetldO  |  return  id;  | 

TextSdection  *GclMICT(); 
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char  *GetMETString(); 
void  SetTagCTcxtSelection*); 

Texts  election*  GetTagQ  { return  tagSel; }; 
EdgcList  *GctInputs()  |  return  inputs; } 

EdgeList  ♦GetOutputsO  { return  outputs; ) 

void  AddInput(Edgc  *); 

void  AddOutput(Edgc  *); 

void  AddState(Edge  *)  { ); 

void  AddTrigger_If(char*)  { } 

void  AddTrigger_All(char*)  { } 

void  AddTrigger_Somc(char*)  { } 

void  AddTriggerTo(char*)  { } 

void  Generate  Ada  (FILE*); 

boolean  HasTriggerByAll(char*); 

void  WritePSDL(FILE*); 

boolean  HasConstraintsO  i  return  hasConstraints; } 

void  WritePSDLConstraints(FILE*); 

protected: 

void  WriteProcSpec(FILE*, const  char*); 

Texts  dection  *met; 

TextSelection  *tagSel; 

EdgeList  *inputs; 

EdgeList  *outputs; 
int  id; 

boolean  hasConstraints; 

); 


class  Operator  :  public  Vertex  { 
public: 

Operator(EllipscSclection*,TcxtSclection*  -  0, 
TextSelection*  =  0); 

*-Opcrator(); 

EllipscSelection  *GetEUipsc(); 
void  SctMET(TcxtSclcction*); 

I; 


class  Terminator  :  public  Vertex  { 
public: 

Tenninator(RectSeIection*,TcxtSclcction*  =  0); 
-'TerminatorO; 

RectSelection  *GetRect(); 

}; 


#define  STATE_EDGE  0 
#definc  SAMPLED.STREAM  1 
#define  DATAFLOW_STREAM  2 

class  Edge  :  public  GraphComponent  { 
public: 

Edge(BSplincSelection*»  Vertex*  =  0,  Vertex*  =  0, 
TextSelection*  *=  0,TcxtSclection*  *t0); 
-EdgeO; 

BSplineSelection  *GetBSpline(); 
void  SctLatency(TextSelection*); 

TextSelection  *GctLatcncy(); 
char  *GetLatencyString(); 

Vertex  *GetFromOp()  { return  fromOp; } 
char  *GetFromVcrtcxLabcl(); 

Vertex  *GetToOp()  { return  toOp;) 
char  *GetToVertcxLabel(); 
boolean  IsState()  { return  state; } 
boolean  lsStream()  (return  Istate;} 
int  StreamTypc(); 
void  SetDataType(char*); 
char  *GetDataTypc(); 
void  WritcTypc(FILE*); 

protected: 

TextSelection  *latcncy; 

TextSelection  *tagSel; 

Vertex  *fromOp; 

Vertex  *toOp: 
char  *dataType; 
boolean  state; 


#cndif 


psdicomp.c 

/* 

*  This  file  contains  the  implementation  for  the  following  objects 

*  GraphComponent,  Vertex,  Operator,  Terminator,  Edge 

*  These  arc  the  components  of  a  PSDL  graph.  Each  object 

*  contains  the  idraw  components  necessary  to  create  that 

*  object  in  the  editors  drawing.  GraphComponent  serves  as 

*  the  base  class  from  which  Vertex  and  Edge  arc  derived  directly. 

*  Operator  and  Terminator  arc  further  derived  from  Vertex 

* 

*  This  file  was  created  specifically  for  the  CAPS  graphic  editor. 

♦ 

*  Created  by:  C.S£aglc 

*  Last  changes:  November  9, 1994 

* 

*! 

#include  "df  del  asses  Ji" 

#include  ”dfd_defs.h” 

#include  "istring.h" 

#include  "listh" 

#includc  "psdlcomp.h" 

#includc  "selection,  h" 

#include  "sltcxUi" 

#includc  "slcllipscs.h" 

#include  "sIpolygons.h" 

#include  "slsplincsJi" 

#include  "psdllists.h" 

#include  <jntcrVicws/tcxtbuffcrJi> 


//  GraphComponent  constructor,  me  is  for  casting  to  subclasses 

GraphComponent: :GraphComponcnt(Selcction  *s,TextScIection  *ls)  { 
me  =  this; 

SctLabel(ls); 

SctShape(s); 

} 


//  GraphComponent  destructor,  leave  shape  up  to  subclasses 

GraphComponent: :-GraphComponent()  { 
delete  label; 

I 


//  set  the  componmts  label 

void  GraphComponent: :SctLabel(TcxtScIcction  *ls)  { 
label  -  Is; 
if  (Is) 

label->SctOwner(mc); 

I 


//  set  the  components  shape 

void  GraphComponent: :SctShapc(Sclcction  *s)  { 
shape  Bs; 
if  (s) 

shape->S  etOwnerfme) ; 

1 


//  r^rieve  the  components  label 

TextSelection  *GraphComponent;;GctLabclO  I 
return  label; 

) 
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//  retrieve  the  components  label  string 


char  *GraphComponcnt::GctLabclString()  ( 
return  label  ?  label“>GetStrmgO  :  0; 

} 


//  retrieve  the  label  string  with  invalid  chars  removed 
//  for  use  in  ADA  and  PSDL  texts 

char  *GraphComponent::GetValidLabelStringO  { 
return  label  ?  label->GetValidStringO  :  0; 

I 


//  retrieve  the  components  class  id 

intGraphComponcnt::GetClassId()  { 
return  shape->GetClassIdO; 

} 


//  vertex  constructor 

Vertex  ::Vcrtcx(Sclcction  *5,  TextSclection  *ls) :  GraphComponcnt(s)  { 
me  =  this; 

SctShape(s); 

SetLab^Os); 

inputs  s=  new  EdgeList; 

outputs  B  new  EdgeList; 

tagScI  =  0; 

id  =  0; 

met  =  0; 

hasConstraints  =  0; 

1 


//  Vertex  destructor 

Vertex::-'Vcrtcx()  ( 
delete  inputs; 
delete  outputs; 
delete  met; 

} 


//  Set  decomposition  tag 

void  Vertex :;SetTag(TcxtSelcction  *ts)  { 
tagSel  <=  ts; 
if  (ts) 

tagS  cl  ->SctOwncr(me); 

} 

//  retrieve  the  Vertex's  MET 

TextSelcction  *Vcitcx::GetMET()  { 
return  met; 

} 


//  retrieve  the  MET  string 

char  *Vcrtex::GctMETString()  { 
return  met  ?  mct->GctString() :  0; 

} 


//  Add  an  Edge  to  the  Vertex’s  input  list 

void  Vertcx::AddInput(Edge  *c)  { 
inpuis->Appcnd(ncw  EdgeNodc(c)); 


//  add  an  edge  to  the  vertex's  output  list 


void  Vertcx::AddOutput(Edge  ^e)  { 
outputs->Appaid(new  EdgeNode(c)); 

} 


//  write  an  ADA  procedure  specification  for  the  Vertex 

void  Vertcx::WriteProcSpcc(FILE  *fptr,  const  char  *pname)  { 
int  hasparm  =  0; 

fprintf(fptr,"Stproccdure  %s'*,pname); 

for  (inputs->Fiist();  !inputs->AtEndO;inputs->NextO)  { 

Edge  "^ids  =  inputs->GetCur()->GciEdgeO; 
char  ♦iparm  =  idS">GetValidLabelStringO; 
if  (hasparm)  { 
if  (iparm) 

Q5rintf(^tr,";\n\f^%s\t:  tJNDEFINED_TYPE”4pann); 
else 

fprintf(fptr;’;Vn\t\tUNDEFINED_NAMBd:  UNDEFINED_TYPE"); 

} 

else  { 

hasparm  =  1 ; 
if  (iparm) 

fyrintf(fptr,*'(%s\t:  UNDEFtNfED_TYPE",iparm); 
else 

fyrintf(fptr;'(UNDEFINED_NAME\t:  UNDEFINED^TYPE"); 

} 

delete  []  iparm; 

} 

for  (oulputs->Rrst();  !outputs->AtEndO;outputs->Next())  { 

Edge  *ods  =  outputs->GetCXirO->GetEdgcO; 
char  *oparm  =  ods->GctValidLabclStringO; 
if  (hasparm)  { 
if  (opaim) 

fprintf(fptr,";\nW%sM:  out  UNDEFINED_TYPE'\opaim); 
else 

fprintf(fptr;';\nNtVUNDEFINED_NAM^  out  UNDEFINED_TYPE"); 

} 

else  ( 

hasparm  =  1 ; 
if  (op  atm) 

fprintf(fjptr,"(%sV:  out  UNDEFlNED_TYPE‘',oparm); 
else 

fprintf(fptr  "(UNDEFINED_NAME>i:  out  IJNDEFINED_TYPE"); 

} 

delete  Q  oparm; 

if  (hasparm) 
fprintf(fptr,")”); 


ft  gaierate  ADA  shell  code  for  the  vertex 

void  Vertex  ;:GenerateAda(FILE  *fptr)  { 
char  *txt  =  GctValidLabclString(); 
fprintf(fptr,"package  %s_PKG  is\n\n",  txt); 
WritcProcSpec(fptr,txt); 
fprintf(fptr,"  ;Vn\nend  %s_PKG  ;\n\n*',txt) ; 
fprintf(fptr, "package  body  %s_PKG  is\n\n’\txt); 
'WritcProcSpec(fptr»txt); 
fprintf(fptr  "  isNnV); 

fprintf(fptr/^tbcgin^n\t^^null;^n\tend  %s;\n\n'\txt); 
fprintf(fptr,"end  %s_PKG;",txt); 
delete  txt; 

1 


//  add  a  trigger  by  all  constraint  to  the  vertex 

boolean  Vertex  :JlasTriggerBy  All  (char  *id)  { 
if  (id)  i 
return  false; 

I 
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return  false; 


//  write  the  PSDL  specification  for  the  vertex 

void  Vcrtcx::WritcPSDL(FILE  *fptr)  { 
char  *idstr  =  GetValidLabcIStringO; 
fprintf (fpt  r,"  %s%s\n%s"  ,OPER_TKN,i  dstr,SPEC_TKN); 

delete  []  idstr, 

inputs->W  ri  tcStrcamTypcs(fptr JNPUT_TKN) ; 
ou^uts->WritcStrcainTypcs(^tr,OlJTPUT_TkN); 
inputS“>WritcStatcTypcs(fptr,"  STATESNn"); 
if  (GctOassIdO  ^  OPERATOR)  { 
if  (met)  { 

char  ♦metstr  =  GetMETStringO; 

fp  rintf (fptr,'*%s  %s\n  ",MET_TKN,mctstr); 

delete  Q  metstn 


else 

fprintf(fptr/‘%s  0\n",MET_TKN); 
fprintf(fptr;%s"3ND_’nCN); 

} 


//  write  the  PSDL  constraints  for  the  vertex 

void  Vertcx::WritcPSDLConstraints(FILE  *fptr)  { 
if  (hasConstraints)  { 

char  *namc  *  label  ?  GetValidLabcIStringO  •  0; 
if  (label) 

^rintf(fptr,"  %s9&s\n",OPER_TKN, label); 
else 

fl3rintf(fptr,"  %s",CON_OP_TKN); 

} 


//  Operator  constructor 

Operator: :Opcrator(ElIipscSelection  *c.  TextSelcction  *ls,  TcxtSelection  *m) : 
Vertex  (e)  { 
me  =  this; 

SctShapc(c); 

SetLab^(Is); 

SetMETfm); 

) 


//  Operator  destructor,  shape  handled  here 

Operate  nr-'OperatorO  { 
delete  (EllipseSelection  *)  shape; 

} 


void  Operator:  :SctMET(TcxtSclcction  •m)  { 
met «  m; 
if  (m) 

mct->SctOwner(me); 


//  retrieve  the  Operatois  Ellipse  shape 

EllipseSelection  *Opcrator::GctEllipsc()  ( 
return  (EllipseSelection  *)  shape; 

} 


//  Terminator  constructor 

Terminator::Tcrminator(RcctSelcction  ♦r,  TcxtSelection  ^Is) : 
Vertex  (r)  { 
me  « this; 

SetShape(r); 
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SetLabelQs); 


//  Tcnninator  destructor,  shape  handled  here 

Tcnninator::'*'Tcrminator()  { 
delete  (RcctSelection  *)  shape; 

} 


//  retrieve  the  Tciminators  Rect  shape 

RectScIection  *Tcnninator::GctRcct()  | 
return  (RectSelection  ♦)  shape; 

} 


//  Edge  constructor 

Edge::£dge(BSplineSelection  Vertex  *from.  Vertex  ♦to, 
TextSelection  ♦Is,  TextSelection  ♦lat) : 
GraphCon^onent(b),  fromOp(from),  toOp(to)  { 


me  =  this; 
dataTypc  «  0; 

state  « (to  from)  ?  1  : 0; 

SetShape(b); 

SetLaMQs); 

SetLatemcy(lat); 
if  (Istate)  { 
b->SetStream(); 

b->SetaassId(DATAFLOW_SPLINE); 

) 

else 

l»SctaassId(SELFL(X)P); 

I 


//  Edge  destmctor.  shape  handled  here 
Edge::~Edge()  { 

delete  (BSplineSelection  ♦)  shape; 
delete  latency; 


//  retrieve  the  Edges  B  Spline  shape 

BSplineSelection  ♦EdgerrGctfiSplineQ  { 
return  (BSplineSelection  ♦)  shape; 

} 


//  set  the  edges  laUmcy 

void  Edge: :SctLatency (TextSelection  ♦!)  { 
if  (state)  return; 
latency  « I; 

if(l) 

l->SetOwner(me); 

I 


//  retrieve  the  edges  latency 

TextSelection  ♦Edgc::GetLatancy()  { 
return  latency; 

} 


//  retrieve  the  string  value  for  the  latwicy 

char  *Edgc::GetLalcncyStringO  I 
return  latency  ?  latency->GetString() :  0; 

} 


//  get  the  label  of  the  from  vertex 


char  *Edge;:GctFromVcrtcxLabel()  { 
return  fnomOp  ?  fromC)p->GctValidLabelStiingO  ^  0; 

} 


//  get  the  label  of  the  to  vertex 

char  *Edgc::GctToVertexLabelO  ( 
return  toOp  ?  loOp“>GetVaIidLabeIStrmgO  •  0; 


//  return  the  stream  type  of  the  edge 

intEdgc::StreamTypcO  { 
if  (state) 

return  STATEJEDGE; 
if  (toOp)  { 

char  *id  =  GetValidLabelStringO; 
if  (toOp->HasTriggerByAll(id)) 
return  DATAFLOW^STREAM; 

) 

return  SAMPLED_STREAM; 

} 


//  set  the  data  type  for  the  edge 

void  Edgc::SetDataTypc(char  *dt)  | 
if  (dataXype) 
delete  0  dauType; 
if(dt){ 

dataXype  =  new  char[strlen(dt)  +  1]; 
strepy  (dataXypc.dt) ; 

) 

} 


//  return  a  copy  of  the  edges  dataXype 

char  ♦Edgc::GctDataXypc()  { 
if  (dataXype)  { 

char  *tcmp  =  new  char[strlcn(dataXypc)+l]; 

strcpy(tcmp,dataXype); 

return  temp; 

} 

return  0; 

1 


//  output  the  label  and  type  as  a  type  declaration 

void  Edgc::WritcXype(FIL£  *fptr)  | 
char  '•‘idstr  =  label  ?  label->GctValidString() :  ID_XKN; 
if  (dataXype) 

fprintf(fptr,‘'  %s  :  %s"4dstr,dataXype); 
else 

fprintf(fptr,"  %s :  UNDEFINED_XYPE"4dstr); 
delete  f) 

1 


psdllist$.h 


r 

*  Xhis  file  contains  the  intcrafee  for  the  following  objects 

*  VcrtexNodc,  VcitcxList»  EdgeNode,  EdgeList 

*  Xhese  derive  from  the  idraw  components  BaseNode  and  BaseList 

*  and  are  used  to  kcef  track  of  the  underlying  dataflow  diagram 

*  represented  by  the  current  graph 

* 

*  Xhis  file  was  created  specifically  for  the  CAPS  graphic  editor. 


*  Created  by:  C.S.£agle 

*  Last  changes:  November  9»  1994 

#ifiidcf _ psdllists_h 

#definc  psdllists  h 

tinciude  "listh*’ 

#includc  <IiitcrVicws/dcfs,h> 
#include  <3jntcrVicws/Std/stdio.h> 

class  BSplineS  election; 
class  Edge; 

class  EllipscSelection; 
class  Operator, 
class  Texts  election; 
class  Selection; 
class  Vertex; 


class  VcrtexNode  :  public  BascNode  { 
public: 

VertcxNodcCVertcx  ♦v) :  vx(v)  { } 
Vertex  ♦GetVcrtex()  {return  vx;} 
protected: 

Vertex  ♦vx; 

}; 


class  VertexList :  public  BaseList  { 
public: 

VertexListO; 

void  Appcnd(VcrtcxNodc  *); 
VertcxNode*  RrstQ; 

VcrtexNode*  LastQ; 

VcrtexNode*  PrevQ; 

VertcxNode*  NextQ; 

VertcxNode*  GetCurQ; 

VcrtexNode*  lndex(int); 

void  SetCur(Vcrtcx*); 

Vertex*  FmdOp(Coord,  Coord); 
Vertex*  FindOp(int); 

void  Rcplacc(Sclection*,  Selection  *); 
void  Rcmovc(Sclcction*); 

protected: 
int  currentld; 

I; 


inline  VcrtexNode*  VcitcxList::FirstO  { 
return  (VcrtexNode*)  BaseList; ’RrstQ; 

1 

inline  VertcxNode*  VertexList:  JLastQ  { 
return  (VcrtexNode*)  BaseList: :LastO; 

inline  VcrtexNode*  VertexList:  dPrevQ  ( 
return  (VcrtexNode*)  BaseList: RevQ; 

) 

inline  VcrtexNode*  VertexList:  :NcxtO  { 
return  (VcrtexNode*)  BaseList:  J'JcxtQ; 

I 


inline  VertcxNode*  VertexList:  :GctCur()  { 
return  (VcrtexNode*)  BaseList: :GctCurO; 

I 

inline  VcrtexNode*  VertexList:  Jndex (int  index)  { 
return  (VcrtexNode*)  BaseList: dndex(indcx); 

I 


class  EdgeNodc  :  public  BaseNode  ( 
public: 

EdgeNodc(Edge  *v) :  c(v)  | } 

Edge  ♦GetEdgeO  { return  e; ) 
protected: 

Edge  *e; 

); 


class  EdgeList :  public  BaseList  { 
public: 

EdgcNode*  First(); 

EdgeNodc*  Last(); 

EdgeNodc*  Prev(); 

EdgeNodc*  NextQ; 

EdgeNodc*  GetCurQ; 

EdgeNodc*  Index(int); 

void  SctCur(Edge*); 

void  Replacc(S election*,  Selection*); 
void  Rcmovc{Selection*); 

void  WriteStrcamTypcs(FILE*,char*); 
void  WriteStateTypes  (FILE*, char*); 


I; 


inline  EdgeNodc*  EdgeList: rFirstQ  ( 
return  (EdgeNodc*)  BaseList:  :First(); 

) 


inline  EdgeNodc*  EdgeList: :Last()  { 
return  (^grf^odc*)  BaseList: :LastO; 

} 

inline  EdgeNodc*  EdgeList:  JVevO  { 
return  (EdgeNodc*)  BaseList:  :Piev(); 

} 


inline  EdgeNodc*  EdgeList::NextO  { 
return  (EdgeNodc*)  BaseList:  :Ncxt(); 

} 


inline  EdgeNode*  EdgeList: :GetCurO  { 
return  (EdgeNodc*)  BaseList: :GctCur(); 

} 


inline  EdgeNodc*  EdgcList;:Index(int  index)  { 
return  (^geNodc*)  BaseList: :Index (index); 

I 

#cndif 


psdilists.c 


/* 

*  This  file  contains  the  implementation  for  the  following  objects 

*  VcrtcxNodc,  VertexList,  EdgeNode,  EdgeList 

*  These  derive  from  the  id  raw  components  BaseNode  and  BaseList 

*  and  arc  used  to  keef  track  of  the  underiying  dataflow  diagram 

*  represented  by  the  current  graph 

* 

*  This  file  was  created  specifically  for  the  CAPS  graphic  editor. 

* 

*  Created  by:  C.S.Eaglc 

*  Last  changes:  November  9, 1994 

* 

*/ 

#includc  "dfdcl  asses  .h" 

#include  "psdllists.h" 

#includc  "psdlcompii’' 

#includc  "sltcxth” 

#includc  "slellipscs.h" 

#include  "slsplinesJ^” 


//  VertexList  constructor 


VcrtcxList::VcrtcxListO :  BaseList()  { 
//initialize  operator  identification  numbers 
currentld  =*  1; 

} 


//  Set  current  node  in  the  list  to  the  node  containing  v 

void  VcrtexList::SetCur(Vertcx  *v)  { 
for  (Rrst();!AtEndO;Next()) 
if  (v  GctCurO'>GetVertexO)  return; 

) 


//  Append  the  new  node  os  to  the  tail  of  the  list  and 
//  assign  the  new  node  a  unique  id  number, 

void  VertcxList:*App«id(VertexNodc  *os)  { 

BaseUst:;Append(os); 
if  (os->GetVertcxO->GetId()) 
currentld  -  currentld  >  os->GctVcitcxO->GetId()  ? 
currentld  :  os->GetVertcx(>->GetId()  +  1; 
else 

os->GetVertex()->SetId(cuiTcntId++); 

) 

//  Set  current  node  of  list  to  be  the  one  whose  shape  selection  contains 
//  the  given  point 

Vertex  *VertexList:J^dOp  (Coord  x.  Coord  y)  | 

Vertex  *rval  =  0; 

PointObj  ♦p  =  new  PointObj(x,y); 
for  (RistO; !  AtEnd();  NextQ) 
if  (GetCur()->GetVertcx()->GetShapeO'>Contains(p))  { 
rval  =  GetCur()->Gct  Vertex  0; 
break; 

) 

delete  p; 
return  rval; 

) 


//  set  the  current  node  to  the  vertex  whose  id  is  vid 

Vertex  *VertexList::FindC)p(int  vid)  { 
for(First():  !AtEnd();  NextQ) 
if  (GetCurO->GetVertcx()->GetId()  =  vid) 
return  GetCurO->GetVertex(); 
return  0; 

I 


//  replace  the  operator  component  oldSel  with  newSel 

void  VertexList:;Replace(Selection  *oldSel,  Selection  ♦newSel)  { 

Vertex  *v  =  (Vertex  *)  oldSel->GctOwner(); 
switch  (oldSel->GetCIassId())  { 
case  TERMINATOR : 
case  OPERATOR :  V“>SctShapc(ncwSel); 
break; 

case  LABEL_OP :  v->SetLabcl ((Tex tS election  *)newScl); 
break; 

case  MET_OP  ;  ((Operator  ♦)v)->SetMET((TextSelcction  *)newSeI); 
break; 


} 


//  remove  the  indicated  selection  from  an  operator  component 

void  VertexList::Rcmovc(Sclcction  *s)  { 

Vertex  *v  ■=  (Vertex  •)  s->GetOwncrO; 
switch  (s->GetClassIdO)  { 
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case  TERMINATOR  : 
case  OPERATOR  :  SetCur(v); 
DelctcCurO; 
delete  v; 
break; 

case  LABEL_OP : 

v->SetLabel(nil); 
delete  s; 

I 

break; 

case  MET_OP : 
if(v){ 

((Operator  *)v)*>SetMET(nil); 
delete  s; 

) 

break; 

} 

} 


//  set  the  current  node  to  the  one  containing  e 

void  EdgcList::SctCur(Edge  *c)  ( 
for  (KrstO;!AtEndO;NcxtO) 
if  (c  GctCurO>GetEdgcO)  return; 

I 


//  replace  the  Edge  component  oldSel  with  newScI 

void  EdgeList::Rq)lacc(Selcction  *oldScK  Selection  *ncwScl)  { 
Edge  *c  ~  (Edge  •)  oIdScl->GetOwner(); 
switch  (oldScl->GctClassId())  { 
case  SELFLOOP ; 
case  DATAFLOW_SPUNE : 
e->SetShapc(newSel); 
break; 

case  LABEL_SL : 
case  LABEL_DF : 

C“>SetLabcl((TextSclection  ♦)ncwSel); 
break; 

case  LAT_DF : 

e->SctLatency(CrcxtSclcction  *)newSel); 
break; 

} 

} 


//  remove  the  Edge  componwit  s  from  the  appropriate  edge  in  the  list 

void  EdgeList::Rcmove(Selcction  *s)  { 

Edge  ♦e  =  (Edge  ♦)  s->GetOwner(); 
switch  (s->GetClassId())  ( 
case  SELFLOOP : 

case  DATAFLOW_SPLINE :  SetCuKe); 

DclcteCurO; 
delete  e; 
break; 

case  LABEL_SL : 
case  LABEL_DF : 
if(c){ 

©->SetLabcl(nil); 
delete  s; 

} 

break; 

case  LAT_DF : 

if(e){ 

e*>SetLatcncy  (nil ) ; 
delete  s; 

} 

break; 

) 

I 
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//  for  all  streams  in  the  edgelist,  output  an  appropriate 
//  type  declaration 


void  EdgeList::WritcStreamTypes(FILE  *fptr,  char  ♦hdr)  { 
int  count »  0; 

for(Firet();!AtEndO;Next())  { 
if  (GctCur()->GctEdgc()->IsStatc()) 
continue; 
if  (count++) 

^rintf(fptr,",\n"); 

else 

fp  rintf (fptr,"%s  "Jidr); 

GetCu  rO->GctEdgc()->WritcType(fptr); 

} 

if  (count) 

^rintf(fptr,"Nn"); 


//  for  all  states  in  the  list  output  an  appropriate  type  declaration 

void  EdgeList::WriteStatcTypes(FILE  ♦fptr»  char  ♦hdr)  { 
int  count  -  0; 

for  (First();!AtEndO;Ncxt())  { 
if  (GetCu  r()->GctEdgcO->IsStrcam()) 
continue; 
if  (count++) 
fprintf(fptr,",\n"); 
else 

fp  rintf (fptr,"%s  "^dr); 

GetCu  r0->GctEdgc()->WriteType(f|5tr) ; 

} 

if  (count) 

^rintf(fptr,"\n*’); 


rubbands.h 

#ifadcf  rubbands_h 
#dcfinc  nibbands„h 

#include  <IntcrViews/rabcurvcJi> 

#include  <lnterVicws/rublinc.h> 

#includc  <IntcrVicws/rubrecth> 

//  An  IStretchingRcct  uses  its  first  few  Track  calls  to  decide  which 
//  side  it  will  let  the  user  drag. 

class  IStretchingRcct :  public  StretchingRect  { 
public: 

IStrctchingRect(Paintcr*,  Canvas*,  Coord,  Coord,  Coord,  Coord, 
Coord  =  0,  Coord  =  0); 

void  Track(Coord,  Coord); 
void  DcfineSidc(Coord,  Coord); 

Alignment  CurraitSide(boolean  landscape); 

piotccted: 

boolean  hrsttime;//  stores  true  until  after  first  call  of  Track 
boolean  undefinedside;//  stores  true  until  side  has  been  determined 
Coord  cx,  cy;//  stores  original  center  of  rectangle 
Coord  origx,  origy;//  stores  point  passed  by  first  call  of  Track 


1; 


//  A  RubberMultiline  lets  the  user  drag  one  of  its  vertices. 

class  RubberMultiLine  :  public  RubberVertex  { 
public: 

RubberMu  1  tiLinc( 

Painter*,  Canvas*,  Coord  px[],  C^ord  py[],  int  n,  int  pt, 
Coord  offx  *  0,  Coord  offy  ■»  0 
); 


void  DrawQ; 


}; 

//  A  RubberPolygon  lets  the  user  drag  one  of  its  vertices. 

class  RubberPolygon  :  public  RubberVertcx  { 
public: 

RubberPolygon( 

Painter*,  Canvas*,  Coord  pxQ,  Coord  py[],  int  n,  int  pt, 
Coord  offx  =  0,  Coord  offy  =  0 
); 

void  DrawQ; 

}; 


#Midif 


rubband$.c 

#include  "rubbandsJi" 

#include  <interViews^aintcrdi> 

//  abs  returns  the  integer's  magnitude. 

inline  int  abs  (int  a)  ( 
return  a  >  0  ?  a  :  -a; 

} 

//IStrctchingRcct  starts  with  no  defined  side  yet. 

IStretchingRect;  JStretchingRect  (Painter*  p.  Canvas*  c.  Coord  xO,  Coord  yO, 

Coord  xl.  Coord  yl.  Coord  offx,  Coord  offy) 

:  (p,  c,  xO,  yO,  xl,  yl,  RightSide,  offx,  offy)  { 
firsttime  =  tme; 
undcfinedside  =  true; 
cx  =  (fixedx  +  movingx)  /  2; 
cy  =  (fixedy  +  movingy)  /  2; 

} 


//  Track  stores  the  point  on  the  first  call,  decides  which  side 
//  becomes  the  stretching  side  on  the  next  call  or  two,  and  draws  the 
//  rectangle  on  all  following  calls. 

void  lStretchingRect::Track  (Coord  x.  Coord  y)  { 
if  (firsttime)  { 
firsttime  =  false; 
origx  =  x; 

origy  =  y; 

}  else  if  (undefinedside)  { 

DefineSide(x,  y); 

I  else  { 

StretchingRect::Track(x,  y); 

I 

} 


//  DefineSide  picks  the  side  to  stretch  after  the  motion  of  the 
//  tracking  point  becomes  sufficiently  unambiguous. 

static  const  Coord  THRESHOLD  =  2; 

void  IStrctchingRcct:  JDcfincSide  (Coord  x.  Coord  y)  { 
Coord  dx  =  abs(x  -  origx); 

Coord  dy  ss  ab6(y  -  origy); 

Coord  xydiff  =  abs(dx  -  dy); 
if  (xydiff>=  THRESHOLD)  { 
undefinedside  »  false; 
if  (dx  >  dy)  { 
if  (x  >  cx)  { 
side  *  RightSide; 

)  else  { 

side  e  Leftside; 

}  else  I 
if(y>cy)  { 
side  K  Topside; 

}  else  { 

side  IE  BottomSide; 

I 
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} 

} 

} 

//  CurrcntSide  returns  the  side  that  the  user  is  dragging. 

Alignment  IStretchingRect::CurrcntSide  (boolean  landscape)  { 
Alignment  s  =  Left; 
switch  (side)  { 
case  Leftside; 

s  =  landscape  ?  Bottom  :  Left; 
break; 

case  RightSide; 
s  =  landscape  ?  Top  :  Right; 
break; 

case  TopSide; 

s  =s  landscape  ?  Right :  Top; 
break; 

case  BottomSidc; 
s  =  landscape  ?  Left  ;  Bottom; 
break; 

} 

return  s; 

} 


//  RubberMultiLinc  passes  its  aigumrats  to  RubberVcitex. 

RubberMultiLine::RubberMultiLine  ( 

Painter*  p,  Canvas*  c,  Coord  px[].  Coord  py[],  int  n,  int  pt. 
Coord  offx.  Coord  offy 
) :  (p»  c»  px,  py,  n,  pt,  offx»  offy)  { 

/*  nothing  else  to  do  */ 

I 


//  Draw  draws  only  the  one  or  two  line  segments  attached  to  the  rubber 
//  vertex. 

void  RubberMultiLine;:Draw  0  { 
if  (x  5=  nil  II  y  =  nil)  { 
return; 

} 

if  ((drawn)  { 
int  before  *  rabberPt  - 1 ; 
if  (before  >=  0)  { 

Coord  xO  =  x[before]; 

Coord  yO  =  yfbefore]; 

ou^ut‘>Line(canvas,  x0+offx»  yO+offy,  trackx+offx,  tracky+offy); 

I 

int  after  =  ruWxjrPt  +  1 ; 
if  (after  <=  count  -  1)  { 

Coord  xl  =  x[after); 

Coord  yl  «  y[aftcr]; 

ouiput->Line(canvas,  trackx+offx,  tracky+offy,  xl+offx,  yl+offy); 

} 

drawn  « true; 

} 

) 


//  RubberPolygon  passes  its  arguments  to  RubberVertex. 

RubberPolygon::RubbcrPolygon  ( 

Painter*  p,  Canvas*  c,  Coord  px[],  Coord  py[],  int  n,  int  pt. 
Coord  offx,  Coord  offy 
) :  (p,  c,  px,  py,  n,  pt,  offx,  offy)  | 

/*  nothing  else  to  do  */ 

) 

//  Draw  draws  only  the  two  line  segments  attached  to  the  rubber 
//  vertex. 

void  RubberPolygon;:Draw  Q  ( 
if  (x  nil  II  y  *=  nil)  { 
return; 

) 

if  ((drawn)  { 

int  before  *  (ruh*)erPt  >  0)  ?  mbberPt  -  1  :  count  - 1; 
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Cooid  xO  =  X [before]; 

Coord  yO  y[bcforc]; 

output->Linc(canvas,  xO+offx,  yO+offy»  trackx+offx,  tracky+offy); 
if  (count  >  2)  { 

int  after  =  (rubberPt  <  count  - 1)  ?  rabberPt  +1:0; 

Coord  xl  =x[aftcr]; 

Coord  yl  =  yfafter]; 

output->Line(canvas,  trackx+offx,  tracky+ofTy,  xl+offx,  yl+offy); 

drawn  =  true; 

} 

} 


selecter.h 

/♦  Description:  definition  of  class  which  gives  user  ability  to  select  a 

♦  prototype  name. 

♦ 

♦  Changes  made  by:  Mehdi  Rowshanaee 

♦  Last  change  made:  October  1994 

*/ 

#ifiidef  selecter_h 
#definc  sclccter_h 

#include  <IntcrVicws/strchooser.h> 

#include  <InterViews/frame.h> 

#include  <InterViews/strbrowscr.h> 

f* 

♦  A  Selector  allows  the  user  to  select  the  prototype  he  wants  to  use. 

V 

class  Selector  :  public  StringChooser  | 
public; 

Sclectcr(Intcractor*,  const  char*.  Alignment); 
char*  SelectO; 
void  Insert(char**); 
void  SetETToiTitIc(const  char*); 
void  CleaK)  |browser()->Clear();) 

protected: 

void  Init(const  char*); 

Interactor*  Intcrior(); 

boolean  Popup(Evcnt&,  boolean  =  true); 

Interactor*  underlying;  //  parent  interactor  that  well  overlay 

private; 

Interactor*  AddScrollcr(Intcractor*); 

StringBrowser*  browserO  |  return  (StringBrowscr*)_browser,  } 

MarginFramc*  title; 

MarginFrame*  enor_titIe; 

Alignment  align; 

); 


#cndif 

sele€ter.c 

#includc  *'selccter.h" 

#include  <lnterVicws/button.h> 
#include  <InterViews/evenLh> 
#includc  <IntcrViews^rame.h> 
#include  <IntcrViewsAnessage.h> 
#include  <lntcrViews/streditor.h> 
#include  <dntcrVicws/world.h> 
tinclude  <InterVicws/gluc.h> 
#include  <InterVicws/boxJi> 
#include  <JnterVicws/bordcrii> 
#includc  <InterViews/adjustcr.h> 
#include  <InterViews/scrollerJi> 
#include  <IntcrViews/scnsorJt> 
#include  <InierVicws/Std/stringJi> 
#dcfine _ ^string_h 


#inc]ude  "istring.h" 

#indude  <stdio.h> 

#include  <sys/types.h> 

#include  <sys/dir.h> 
r  #include  <stiingJt>  ♦/ 

int  comparc_succcssfuI(char*,  const  char*); 
char*  define_cxtcnsi  on  (const  char*); 

void  find_prototype_namcs(char**  prototypc_array,  char*  dir,  const  char*  func) 

{ 

DIR*  pdir  -  opcndir(dir); 
boolean  successful  =  pdir  != NULL; 
struct  direct*  d; 
char*  name; 

int  no_of_prototypcs  =  0; 

if  (successful) 

{ 

for  (d  -  rcaddir(pdir);  d  !=  NULL;  d  =  rcaddir(pdir)) 

I 

int  comparc_result  ==  comparc_successful(d->d_namc,  fime); 
if  (comparc_rcsult) 

I 

name  =  new  char  [comparc_result  +1]; 

stmcpy(namc,  d->d_name,  compare_result); 
name[comparc_result]  = 

prototypc_aiTay[no_of_4)rototypcs]  =  new  char[stricn(namc)+l]; 
strcpy(prototypc_aiTay[no__of_prototypcs++],namc); 

I 


I 

prototype_array[no_of_prototypes] «  nil; 
closcdir(pdir); 

} 


int  compare_succcssful(char*  hlmame,  const  char*  func) 

I 

char*  extension; 
extmsion  =  ".graph"; 

int  filenamejen  =  strlen (filename); 
int  extjen  =  strien  (extension); 

if  (filcname_len  <  cxt_lcn) 
return  0; 
else 
1 

int  limit  *  filenamejen  -  cxt_len; 
for  (int  i  ■=  0;  i  <=  limit;  -H-i) 

I 

if  (stmcmp(filename  +  i,  extoision,  cxt_len)  =  0) 
return  i; 

I 

return  0; 

} 


Sclectcr;:Sclectcr  (Intcractor*  u,  const  char*  t,  Alignment  a) : 
StringChooscr(new  ButtonState,  10, 24, a) 

I 

align  »  a; 
underlying  =  u; 

Init(t); 

Scene:  Jnsert(Intcrior()); 

} 

char*  Sclcctcr::Select  () 

I 

char*  name^^l; 

Event  e; 
if  (Popup(c)) 
name  *  (char  *)Choicc0; 

return  name; 
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void  Selecter::Inscrt(char**  name_aiTay) 


for  (int  i  =  0;  name_aiTay[i]  !*  nil;  -H-i) 
browscrO->Appcnd(namc_a!Tay[ij); 

} 

void  Sdcctcr::Init(const  char*  t) 


if(n*=V)*) 

title  =  new  MaiginFranie(new  VGlue(0,0)); 
else 

title  =  new  MaiginFrame(new  Message(t)); 
errorjitle  *=  new  MarginFrame(new  VGlue(0,0)); 

I 


Intcractor*  Selccter: interior  () 

I 

const  int  space  =  round{.5  *  cm); 

VBox*  erroiblock  =  new  VBox(  new  HBox(eiTor_title,  new  HGlue) ); 

VBox*  titicblock  =  new  VBox(  new  HBox(title,  new  HGlue) ); 

return  new  Frame(new  MarginFramc 

( new  VBox(  erroiblock,  titicblock, 
new  VGluc(spacc,0)ncw  Fiame(AddScrollcr(browserO)), 
new  VBox( 
new  VGluc(spacc,0), 
new  Framc( 

new  Mai'ginFramc(_scdit,2))), 
new  VGlue(spacc,0), 
new  HBox( 
new  VGluc(spacc,0), 
new  HGlue, 

new  PushButtonC’Cancel",  state,  V)07'), 

new  HGlue(spacc,0), 

new  PushButtonC'Selcct",  state,  V) 

) 

),  space,  space/2, 0 

),2 

); 

) 


boolean  Selecter;'J*opup  (Event&,  boolean) 

{ 

World*  world  s=  undcrlying->GetWorid(); 

Coord  X,  y; 

undcrlying“>Align(aIign,  0,  0,  x,  y); 
underlying->GctRclative(x,  y,  world); 
world->InscrtTransicnt(this,  underlying,  x,  y,  align); 
boolean  acc^ted  =  AcceptQ; 
wo  rld->Rcmo  vc(this) ; 
return  accepted; 

} 


Intcractor*  Sclcctcr::AddScroller(lnteractor*  i) 

{ 

return  new  HBox( 

new  MarginFiamc(i,2), 

new  VBorder, 

new  VBox( 

new  UpMoverfi,!), 

new  HB  order, 

new  VScrollcrfi), 

new  HBorder, 

new  DownMovcr(i,l) 

)  ); 

I 

void  ChangeMsg(const  char*  name,  MarginFramc*  frame) 

I 

Intcractor*  msg; 

if  (‘name  »=  V)*) 
msg  »  new  VGlue(O.O); 

else 

msg  m  new  Mcssagc(name); 


frame->Insert(msg); 

frame->Change(msg); 

} 

void  Sclecter::SctEiTorTitle(const  char*  name) 

{ 

ChangeMsg(namc,  error  title); 

} 


selection.h 

#definc  KERNEL 

#ifadef  selection_h 
#define  sclection_h 

#includc  <InterViewsA3raphic/picture.h> 

//  Declare  imported  types. 

class  GraphComponent; 
class  Rubberband; 
class  RubberVeitex; 
class  State; 
class  istream; 
class  ostream; 

//  PostScript  file  fonnat  changes. 

static  const  int  ORIGINALVERSION  =  1 ;  //  original  format 
static  const  int  FGCOLORVERSION  »  2;  //  added  foreground  color 
static  const  int  NONREDUNDANTVERSION  =  3;  //  eliminated  unnecessary  text 
//pattern  and  duplication  of 
//  font  name,  transfonnation  matrix, 

//  poly  points,  and  text  data 

static  const  int  FGANDBGCOLORVERSION  =  4;  //  added  background  color  and 
//  RGB  values  for  overriding  names; 

//  used  graylevel  to  eliminate 
//  redundant  pattemfill  data 

static  const  int  GRIDSPACINGVERSION  =  5;  //  added  grid  spacing 
static  const  int  NONROTATEDVERSION  =  6;  //  replaced  rotation  of  drawing  with 
//  rotation  of  view  for  landscape 

static  const  int  TEXTOFFSETV^RSION  =  7;  //  changed  text  positions  on  screen 
//  and  improved  accuracy  of 
//  text  positions  on  printout 

//  Other  constants. 

static  const  int  ARROWHEIGHT  =  8;  //  how  long  arrows  are  in  points 

static  const  int  ARROWWIDTH  =  4;  //  how  wide  arrows  are  in  points 

static  const  int  BUFSIZE  =  256;  //  size  of  buffer  for  reading  data 

static  const  int  HDSIZE  =  5;  //  how  wide  handles  arc  in  points 

//  A  Selection  can  draw  handles  around  itself  and  create  a  reshaped 
//  copy  of  itself. 

extern  const  char*  staitdata;  //  signals  place  to  read  valid  data 

class  Selection  :  public  Picture  ( 
public; 

Sclcction(ClassId,  Graphic*  =*  nil); 

Selection  (Graphic*  =  nil); 

-SelectionO; 

Graphic*  Copy(); 
boolean  HasChildrcnO; 

void  GetPaddedBox(BoxObj&); 

void  DrawHandJes  (Painter*,  Canvas*); 

void  ErascHandles(Paintcr*,  Canvas*); 

void  RcdrawHandlcs(Painter*,  Canvas*); 

void  RcdrawUnclippcdHandles(Paintcr*,  Canvas*); 

void  RcsetHandlcsQ; 

virtual  boolean  ShapedBy(Coord,  Coord,  float); 
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virtual  Rubbcrband*  CrcateShape(Coord,  Coord); 
virtual  Selection*  GetReshapcdCopyO; 

virtual  void  WriteData(ostream&); 

void  SctCIassId(GassId); 

Classid  GctClassIdQ; 
boolean  IsEdgeComponentO; 
boolean  Is  Vertex  Component(); 
void  SctOwner(GraphComponcnt  *o)  {owner  =  o; } 
GraphComponcnt*  GetOwncr()  { return  owner, } 

protected: 

void  Sldp(istream&); 
void  RcadVersion(istrcam&); 
void  RcadGridSpacing(istrcam&,  State*); 
void  ReadGS(istreain&,  State*); 
void  ReadPictGS(istrcam&,  State*); 
void  ReadTextGS(istrcam&,  State*); 
void  ReadBrush(istream&,  State*); 
void  RcadFgColor(istrcam&,  State*); 
void  Reads  gColor(istream&,  State*); 
void  ReadFont(istream65;,  State*); 
void  Rca(iPattem(istreani&,  State*); 
void  Rca(n’ransformer(istrcam&); 
float  CalcGrayLcvcl(int); 

void  WriteVsrsion(ostrcam&); 

void  WritcGridSpacing(ostream&,  State*); 

void  WritcGS(ostream&): 

void  WritePictGS(ostrean)&); 

void  WriteTextGS(ostream&); 

void  Writes rush(ostrcam&); 

void  WriteFgColor(ostrcam&); 

void  WriteBgColor(ostream&); 

void  WriteFont(ostfeani&); 

void  WritcPattem(ostream&); 

void  WriteTransformcr(ostream&); 

virtual  void  CreateHandlcsQ; 
void  DcletcHandIcs(); 

Rubbcrband*  handles;//  contains  handles  outlining  Selection 

static  char  bufIBUFSIZE];//  contains  storage  for  reading  data 
static  int  veisionnumbcr;//  stores  version  of  drawing  read  from  file 
Classid  cid;  //  stores  type  of  selection 

GraphComponcnt  *owncr, 

I; 


//  An  NPtSclection  knows  how  to  create  handles,  read  or  write  its 
//  points,  and  draw  arrowheads  so  many  subclasses  can  reuse  the  same 
//  code. 

class  NPtSclection  :  public  Selection  { 
public: 

NPtSclection(QassId,  Graphic*); 

NPtSelcction(Graphic*); 

virtual  int  GctOriginal (const  Coord*&,  const  Coord*&); 
boolean  ShapedBy (Coord,  Coord,  float); 

Rubbcrband*  CrcateShape(Coord,  Coord); 

Selection*  GetReshapcdCopyO; 

Gassid  GetGassIdO; 

protected; 

void  RcadPoints(istrcam&,  const  Coord*&,  const  Coord* &,  int&); 
void  WriteData(ostream&); 

virtual  RubberVertex*  C tea tcRubbcrVcrtcx (Coord*,  Coord*,  int,  int); 

virtual  Selection*  CreatcRcshapcdCopy(Coord*,  Coord*,  int); 

void  CreateHandlesO; 

void  TotalTransform  (Coord*,  Coord*,  int); 

void  In vTotalTransform (Coord*,  Coord*,  int); 
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int  CloscstPomt(Coord*,  Coord*,  int.  Coord,  Coord); 

boolean  LeftAcont(Coord,  Coord,  Coord,  Coord,  PointObj&,  Graphic*); 
boolean  RightAcont(Coord,  Coord,  Coord,  Coord,  PointObj&,  Graphic*); 
boolean  LcftAints (Coord,  Coord,  Coord,  Coord,  BoxObj&,  Graphic*); 
boolean  RightAints (Coord,  Coord,  Coord,  Coord,  BoxObj&,  Graphic*); 
void  drawLeftA  (Coord,  Coord,  Coord,  Coord,  (Zanvas*,  Graphic*); 
void  drawRightA  (Coord,  Coord,  Coord,  Coord,  Canvas*,  Graphic*); 
float  Merge ArrowHcadTol(float,  Graphic*); 

boolean  ArTOwHeadcont(Coord,  Coord,  Coord,  Coord,  PointObj&,  Graphic*); 
boolean  ArrowHeadints (Coord,  Coord,  Coord,  Coord,  BoxObj&,  Graphic*); 
void  drawAiTowHead(Coord,  Coord,  Coord,  Coord,  Canvas*,  Graphic*); 
void  SetCrM(Coord,  Coord,  Coord,  Coord,  Graphic*,  boolean); 
void  RcstoreCrM(Graphic*); 
float  Slope(float,  float); 

const  char*  myname;//  tells  which  NPtSclection  subclass  this  is 
RubberVertex*  rubbervertex;//  tells  us  how  the  user  wants  to  reshape  us 


}; 


#endif 


selection.c 

#dcfine  _POSIX_SOURCE 
#dcfine  KERNEL 
#include  "dfdclasses.h'‘ 

#include  ”ipainth" 

#include  '*istring.h" 

#include  "listifonth" 

#include  "mapipainth" 

#include  "sclcction.h" 

#include  "state,h" 

#includc  <InterViews/StdAnath.h> 
#includc  <InterVicws/rubcurvcii> 
#include  <InterVicwsAransformcr.h> 
#includc  <InterViews/Graphic^til.h> 
#include  <stream.h> 

#definc  KERNEL 

//  #includc  <InterVicws/Std/stdio.h> 


/* 

*  Define  the  start  of  data  token. 

*/ 

const  char*  startdata  = 

/* 

*  Selection  starts  off  with  no  handles  and  class  id  set 

*/ 

Selection  "Selection  (Classid  classid,  Graphic*  gs) :  (gs) 

{ 

handles  =:  nil; 
cid  =  classid; 
owner  «  0; 

} 

/* 

*  Selection  starts  off  with  no  handles  and  unknown  class  id. 

*/ 

Selection ::Selection  (Graphic*  gs) :  (gs) 

{ 

handles  nil; 
cid  NONE; 
owner  =  0; 

} 

/* 

*  Free  storage  allocated  for  the  handles  if  any. 

*/ 
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Selection  ::-’Selection  () 

{ 

DeletcHandlesQ; 

) 


/* 

*  Copy  returns  a  copy  of  the  Selection. 

*/ 

Graphic^  Selection:: Copy  () 

{ 

return  new  Selection  (this); 

} 


*  HasChildren  returns  false  so  Idraw  won't  ungroup  this  Picture, 

*1 

boolean  Selection:  JIasChildren  () 

I 

return  false; 

1 

/* 

*  GetPaddedBox  returns  the  Selection’s  smallest  box  with  enough 

*  padding  added  to  include  its  handles. 

*1 

void  Sclection::GetPaddedBox  (BoxObj&box) 

i 

Picture::GctBox(box); 

const  int  HDPAD  -  HDSIZE/2  +  1;  /*  how  much  to  add  to  GetBox's  size 

box -left  -=  HDPAD; 

box. bottom  -=  HDPAD; 

box.right  +=  HDPAD; 

box.top  +-  HDPAD; 

/* 

*  DrawHandles  tells  the  handles  to  draw  themselves  unless  they’ve 

*  already  drawn  themselves. 

V 

void  Selcction::DrawHandles  (Painter*  raslerxor,  Canvas*  canvas) 

I 

if  (handles  =  nil) 

{ 

CreateHandlesQ; 

} 

handles->S  etPainter(rastcrxor); 
hand  les->S  etCanvas  (can  vas); 
handles->DrawO; 

) 


/* 

*  EraseHandles  tells  the  handles  to  erase  themselves  unless  they’ve 

*  already  erased  themselves. 

•/ 

void  Selcctionf-EraseHandles  (Painter*  rastcntor»  Canvas*  canvas) 

I 

if  (handles  !=inl) 

I 

hand  lcs->SctPainler(  rasterxor); 
hand  lcs->S  etC4mvas(can  vas); 
handlcs->Erase(); 

) 

) 


/* 

*  RedrawHandlcs  knows  for  sure  that  no  unerased  handles  remain  on  the 

*  screen^  so  it  resets  the  handles  to  outline  the  Selection's 

*  possibly  different  shape  and  location  before  drawing  the  handies. 

V 


void  Selection:: Red rawHandlcs  (Painter*  rasterxor,  Canvas*  canvas) 

I 

DeleteHandlesO; 

DrawHandles(rastcrxor,  canvas); 

} 


I* 

*  RedrawUnclippcdHandlcs  knows  that  some  unerased  handles  probably 

*  ranain  on  the  screen  so  it  can't  reset  the  handles,  but  it  can  tell 

*  the  handles  to  draw  themselves  whether  or  not  theyVe  already  drawn 

*  thonselves  because  the  painter  will  clip  the  already  drawn  handles. 

V 

void  Selection:; Red rawUnclippedHandlcs  (Painter*  rasterxor.  Canvas*  canvas) 

I 

if  (handles  —  nil) 

i 

CrcatcHandlesQ; 

} 

handles->S  etPaintcr(rastcrxor); 
handles->S  etCanvas  (canvas); 
hand  lcs->Rcdraw() ; 

} 


I* 

*  ResetHandles  deletes  the  handles  since  the  Selection  may  have  moved 

*  out  from  under  them.  Redrawing  the  handles  will  recreate  them. 

♦/ 

void  Selection  ;:ResetHandles  0 

{ 

DeleteHandlesO; 

} 


/♦ 

*  ShapedBy  returns  false  since  the  Selection  docs  not  contain  any 

*  points  whidi  both  determine  its  shape  and  fall  within  the  given 

*  distance  of  the  given  point. 

*/ 

boolean  Selection  ::ShapedBy  (Coord,  Coord,  float) 

{ 

return  false; 

} 

/* 

*  CreateShape  creates  and  returns  a  Rubberband  representing  the 

*  Selection’s  shape  for  the  user  to  reshape. 

*/ 

Rubberband*  Selection  rrCreateShape  (Coord,  Coord) 

I 

return  nil; 

I 

/* 

*  GetReshapedCopy  creates  and  returns  a  copy  of  the  Selection 

*  incorporating  the  change  made  to  its  shape. 

*/ 

Selection*  S election :;GctRcshapedCopy  0 

I 

return  nil; 

) 


/* 

•  Skip  skips  over  tokens  in  the  input  stream  until  it  reads  a  start 

*  of  data  tokm  or  reaches  eof. 

♦/ 

void  Selection ::Skip  (istream&  from) 

I 

while  (from  »  buf  &&  strcmp(buf,  startdata) 0) 

I 

/*  skip  Postscript  code  */ 

I 
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} 


/♦ 

♦  ReadVcrsion  reads  the  drawing’s  version  number.  Knowing  the 

♦  drawing's  version  number  allows  us  to  invoke  backward  compatibility 

♦  code  if  necessary  or  detect  an  incompatibility  ahead  of  time. 

V 

void  Selection::  Read  Version  (istream&  from) 

{ 

Skip(from): 
from  »  buf; 

if  (strcmp(buf,  "Idiaw")  0) 

I 

from  »  versionnumber, 

} 

else 

{ 

versionnumber  =  ORIGINALVERSION; 

} 

if  (versionnumber  >  TEXTOFFSETVERSION) 

{ 

fprintf(stdeiT»  "warning:  drawing  version  %d  ",  versionnumber); 
fprintf(stderr,  "newer  than  id  raw  version  %d\n",  TEXTOFFSETVERSION); 
} 


r 

*  ReadGridSpacing  reads  the  grid  spacing  used  by  the  drawing  and 

*  stores  the  new  grid  spacing  value.  It  must  correct  the  default 

*  grid  spacing  it  gives  to  old  drawings  for  an  implemmtation  botch 

*  in  Interviews  2.4  that  calculated  point's  value  incorrectly  using 

*  72.07^ch  instead  of  inch/72.27  (it  was  a  botch  in  TWO  ways). 

V 

void  Selection:: ReadGridSpacing  (istream&  from.  State*  state) 

I 

double  g  =  state->GetGridSpacingO; 
if  (versionnumber  <  GRIDSPACING  VERSION) 

I 

const  ini  oldspacing  =  8; 

const  double  oldpoints  -  72.07/mches; 

g  =  oldpoints  ♦  round(oldspacing  *  oldpoints); 

} 

else 

{ 

from  »  buf; 

if  (strcmp(buf,  "Grid")  —  0) 

{ 

from  »  g; 


statc->S  etGridSpacing(g) ; 

I 


/* 

*  ReadGS  reads  data  to  initialize  the  graphic  state  for  Selections 

*  which  don't  contain  any  text 

V 

void  Selection:: ReadGS  (istream&  from,  State*  state) 

{ 

ReadBmshffrom,  state); 

if  (versionnumber  >*=  FG ANDBGCOLORVERSION) 

{ 

RcadFgColor(from,  slate); 

ReadBgColor(from,  state); 

SetFont(nil); 

) 

else  if  (versiormumber  >=  FGCOLORVERSION) 

I 

ReadFgCoIorffrom,  state); 

IColor*  bg  «  state->Gct^pIBgColorO->GetInitialO; 
SetColors(GctFgColorO,  b^; 

SetFonl(nil); 

I 
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else 

IColor*  fg  =  statc->GctMapIFgColorO">GctInitial(); 
IColor"*  bg  «  statc->GetMapIBgCoIorO->GetInitialO; 
SctCoIors(fg,  bg); 

RcadFont(from,  state); 

I 

RcadPattcm(froin,  state); 

ReadTrans  fo  rmcr(from) ; 


/• 

*  ReadPictGS  reads  data  to  initialize  the  graphic  state  for 

*  PictSelections  which  may  contain  some  text. 

V 

void  Selection;:ReadPictGS  (istrcam&  from.  State*  state) 

{ 

RcadB  rush  (from,  state); 

if  (versionnumbcr  >-  FGANDBGCOLORVERSION) 

ReadFgColor(from,  state); 

ReadBgColor(from,  state); 

} 

else  if  (versionnumbcr  >=  FGCOLORVERSION) 

i 

ReadFgColor(from,  state); 

SetColors(GctFgCoIor(),  nil); 

) 

else 

{ 

SctColors(nil,nil); 

} 

ReadFont(from,  state); 

ReadPattem(from,  state); 

RcadTransformer(from); 

I 

r 

*  RcadTcxtGS  reads  data  to  initialize  the  graphic  state  for 

*  TextSelections  whidi  don't  need  a  brush  or  pattern. 

*1 

void  Selection  “ReadTextGS  (istream&  from.  State*  state) 

{ 

if  (versionnumbcr  >-  FGCOLORVERSION) 

I 

SetBmsh(nil); 

ReadFgColor(from,  state); 

SetColors(GetFgColor(),  nil); 

I 

else 

{ 

ReadBrush(from,  state); 

SetColors(statc->GetMapIFgColor()->GetInitial() ,  nil); 

I 

ReadFont(from,  state); 

if  (versionnumbcr  <  NONREDUNDANTVERSION) 

{ 

RcadPattcm(from,  state); 

IPattcm*  pattern  *  (IPattcm*)  GctPattcmO; 

float  graylcvel  =  pattcm->GctGrayLcvelO; 

const  char*  c  5=  "Black”; 

int  r  ■*  0,  g  «  0,  b  0; 

if  (graylcvel  !«  0  &&  graylcvel  !=  -1) 

i 

if  (graylcvel  s=  1) 

{ 

c«  "White”; 
r«g  =  b«65535; 

I 

else 

( 

c  *  "Gray"; 
r«g-b  =  49l52; 

} 
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) 

SetColors(statc->GetMapIFgColor()->FindOrAppend(c,  r,  g,  b),  nil); 

} 

else 

{ 

SetPattem(nil); 

} 

ReadTrans  fonner(from); 

if  (versionnumber  <  TEXTOFFSETVERSION) 

{ 

IFont*  f  =  (IFont*)  GetFontQ; 

float  xO,  yO,  xl,  yl; 

transform(0.0, 0.0,  xO,  yO); 

transform (0.0,  fioat(f“>GetLincHt()  -  f->Height()  - 1),  xl,  yl); 

float dx  =  xl  -xO; 

float  dy  =  yl  -  yO; 

Translate(dx,  dy); 

) 

} 


I* 

*  ReadBmsh  reads  data  to  set  the  Selection's  brush. 

V 

void  Selection::RcadBnish  (istrcam&  from,  State*  state) 

I 

Skip  (from); 
from  »  buf; 
if(bufl0]  =  'b') 

I 

char  lookahead  =  'u'; 

boolean  undefined  =  false; 

boolean  none  *  false; 

int  p  =  0; 

int  w  a*  0; 

int  1  “  false; 

int  r  *=  false; 

from  » lookahead; 
from.putback(Iookahead); 
switch  (lookahead) 

I 

case  V: 

undefined  =  true; 
break; 
case  "n': 
none  =  tme; 
break; 
default: 

from  »  p  »  w  »  1 »  r, 
break; 

} 


if  (undefined  II  Ifrom.goodQ) 

{ 

SetBrush(nil); 

I 

else 

i 

MapIBrush*  mb«  state->GetMapIBmsh(); 

©rush*  brush  >*  mb->FindOrAppcnd(none,  p,  w,  1,  r); 

SetB  rush  (brush); 

I 

} 

I 

r 

•  ReadFgColor  reads  data  to  set  the  Selection's  foreground  color, 

*/ 

void  Selection ::RcadFgCo lor  (istream&  from.  State*  state) 

I 

Skip  (from); 
from  »  buf; 
if(bufI0]*=’c'  && 

(buffi] ««  T  y  versionnumber  <  FGANDBGCOLORVERSION) ) 


char  lookahead  =  ’u'; 
boolean  undefined  jk  false; 
char  name[100]; 
float  fr  =  0,  fg  0,  fb  =  0; 

from  » lookahead; 
from.putback(lookahead); 
if  (lookahead  =  ’u’) 

i 

undefined  =  true; 

else 

{ 

from  »  name; 

if  (versionnumber  >=  FG  ANDBGCOLORVERSION) 

I 

from  »  fr »  fg  » fb; 

) 

) 

if  (undefined  H  Ifrom.goodO) 

I 

SctColors(niI,  GctfigColorO); 
else 

I 

int  r  =  round(fr  •  Oxffff); 
int  g  -  round(fg  *  Oxffff); 
int  b  ~  round(fb  *  Oxffff); 

MapIColor*  mfg  =  statc->GetMapIFgColor(); 

IColor*  fgcolor  =  mfg->FindOrAppcnd(namc,  r,  g,  b); 
SctColors(fgcolor,  GctBgColor()); 

} 

} 

} 

/* 

♦  ReadBgColor  reads  data  to  set  the  Selection's  background  color. 

*/ 

void  Selection ::ReadBgColor  (istream&  from.  State*  state) 

I 

Skip  (from); 
from  »  buf; 

if  (buf[0]  « 'c'  &&  bufll]  —  V) 

I 

char  lookahead  -  'u'; 
boolean  undefined  =  false; 
char  namc[100]; 
float  fr  =  0,  fg  =  0,  fb  5s  0; 

from  » lookahead; 
from.putback(lookahead); 
if  (lookahead  =  'u') 

I 

undefined  =  true; 

} 

else 

I 

from  »  name  »  fr  »  fg  » fb; 

) 

if  (undefined  il  Ifrom.goodQ) 

i 

SctColors(GetFgColor(),  nil); 

) 

else 

I 

int  r  *  round(fr  *  OxfRf); 
int  g  **  round(fg  *  Oxffff); 
int  b  *  round(fb  *  Oxffff); 

MapIColor*  mbg  «  state->GctMapIBgCo!or(); 

IColor*  bgcolor  «  mbg>>FindOrAppend(namc,  r,  g,  b); 
SctColors(GctFgColoi<),  bgcolor); 


/* 

*  RcadFont  reads  data  to  set  the  Selection’s  font 

*/ 

void  Selection ::ReadFont  (istreain&  from,  State*  state) 

{ 

Skip(from); 
from  »  buf; 
if(buf[0]  =  ’f) 

{ 

char  lookahead  =  'u'; 
boolean  undefined  =  false; 
char  namc[100]; 
charprintfont[100]; 
char  printsizc[100]; 

from  » lookahead; 
frQm.putback(lookahead); 
if  (lookahead  =  V) 

{ 

undefined  =  true; 

} 

else 

I 

from  »  name; 
from  »  printfont; 
from  »  printsizc; 

) 


if  (undefined  II  Ifrom.goodO) 

{ 

SetFont(nil); 

} 

else 

{ 

MapIFont*  mf  =  state'>GetMapIFontO; 
char*  pf  =  (versionnumber  >=  NONREDUNDANTVERSION)  ? 
&printfont[l) :  printfont; 

IFont*  font  =  mf->FindOrAppcaid(name,  pf,  printsizc): 
SctFont(font): 

) 


I* 

*  ReadPattem  reads  data  to  set  the  Selection’s  pattom, 

V 

void  Selection:: ReadPattem  (istrcam&  from.  State*  state) 

{ 

Skip(from); 
from  »  buf; 
if  (buflO]  =  ’p*) 

I 

char  lookahead  =  ’u’; 
boolean  undefined  =  false; 
boolean  none  =  false; 
float  graylcvel  *  0; 
int  data[pattcmHeight); 
inr  size  =  0; 

from  » lookahead; 
switch  (lookahead) 

{ 

case  V: 

undefined  =  tme; 
break; 
case  ’n': 
none  ■=  true; 
break; 
case  V: 
graylevei  *-l; 
break; 
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default: 

f  rom  .putback  (1 0  ok  ah  ead); 
break; 

) 

if  (lundefincd  &&  !none  &&  graylevel  !=  -1) 

{ 

if  (vcreionnumbcr  >-  FGANDBGCOLORVERSION) 

i 

fiom  »  graylevel; 

I 

else 

I 

from  »  data[0]; 

graylevel  =  CalcGrayLevel(data[0]); 

} 

} 

else  if  (graylevel  =  -1) 

{ 

for  (int  i  =  0;  from  »  buf  &&  i  <  pattemHcight;  i++) 

{ 

if  ((buflO]  ==  V*)  il  (sscanf(buf,  &data[i])  !=  1)) 

{ 

break; 


if  (buflO]  «*•>•) 

{ 

size  =  i; 

} 

else 

{ 

undefined  =  true; 

} 

} 

if  (undefined  II  !from.good()) 

1 

SetPattem(nil); 

) 

else 

I 

MapIPattem*  mp  =  statc->GetMapIPattemO; 

IPattem*  pattern  =  mp->FindOrApp«id(none,  graylevel,  data,  size); 
SetPattem(pattem); 

} 

) 

} 

r 

*  ReatfTransformer  reads  data  to  set  the  Selection's  transformation 

*  matrix. 

V 

void  SelectiontiReadTransfomier  (istream&  from) 

1 

Skip(from); 
from  »  buf; 
if(bufI0]«-'t') 

( 

char  uoibracket  *=  V; 
boolean  undefined  =  false; 
float  aOO,  aOl ,  alO,  all,  a20,  a21; 

from  »  uorbracket; 
if  (uorbracket  =  'u') 

{ 

undefined  true; 

I 

else 

{ 

if  (versionnumber  <  NONREDUNDANTVERSION) 

I 

from.putback(uorbracket); 

1 

from  »  aOO  »  aOl  »  alO  »  al  1 »  a20  »  a21; 
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} 

if  (from.goodO  &&  lundefined) 

( 

SctTransformcKnew  TransforTner(aOO,  a01,al0,  all,  a20,  a21)); 

} 

} 

} 


/♦ 

*  CalcGrayLcvcl  calculates  a  4x4  bitmap’s  gray  level  on  the  printer. 

*  Since  the  gray  level  ranges  from  0  =  solid  to  1  =  clear, 

*  CalcGrayLevel  counts  the  number  of  0  bits  in  the  bitmap  and  divides 

*  the  sum  by  the  total  number  of  bits  in  the  bitmap. 

*1 

float  SeIcction::CalcGrayLcvel  (int  seed) 

{ 

const  int  numbits  =  16; 

int  numzcros  =  0; 

for  (int  i  =  0;  i  <  numbits;  i++) 

{ 

numzcros  +-  !  ((seed  » i)  &  Ox  I ); 

} 

return  float(numzcros)  /  numbits; 

} 

/* 

*  WriteData  writes  everything  needed  to  draw  or  reconstract  the 

*  Selection. 

V 

void  Selection  "WriteData  (ostrcam&  to) 

{ 

/*  define  it  in  your  subclass  •/ 

) 

/* 

*  Write  Version  writes  the  drawing’s  version  number.  Storing  a 

*  version  number  with  the  drawing  makes  backward  compatibility  easier 

*  to  support  when  the  drawing  format  changes  in  the  future. 

*/ 

void  Selection  "Write Version  (ostrcam&  to) 

I 

to  «  startdata  «  "  Idraw  ”  «  TEXTOFFSETVERSION  «  "  "; 

} 

f* 

*  WriteGridSpacing  writes  the  drawing's  grid  spacing.  Storing  the 

*  grid  spacing  with  the  drawing  ensures  graphics  will  remain  aligned 

*  to  the  grid  they  were  aligned  to  before. 

*/ 

void  Selection  "WriteGridSpacing  (ostream&  to,  State*  state) 

I 

to  «  “Grid  “  «  statC‘>GetGridSpacingO  «  " 

) 

/*  ‘ 

*  WriteGS  writes  the  graphic  state  for  Sdections  that  don’t  contain 

*  any  text 

V 

void  Selection::WriteGS  (ostrcam&  to) 

{ 

WriteBrush(to); 

WritcFgColor(to); 

W  riteB  gCol  or(to) ; 

WritcPattem(to); 

WriteTransformcr(to); 

1 

/* 

*  WritePictGS  writes  the  graphic  state  for  PictSelections  which  may 

*  contain  some  text 
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void  Selcction;:WritcPictGS  (ostrcam&  to) 

{ 

WritcBrush(to); 

WrilcFgColoKto); 

WritcBgColoKto); 

WriteFont(to); 

WritcPattcm(to); 

WritcTransf ormcr(to ); 

} 


/* 

♦  WritcTcxtGS  writes  the  graphic  state  forTcxtSelections  which 

*  don't  need  a  brush  or  pattern  but  do  need  a  font, 

*1 

void  Select!  on  ::WritcTextGS  (ostrcam&  to) 

{ 

WritcFgColorfto); 

WritcFont(to); 

WritcTransfonner(to); 

} 


♦  WritcBrush  writes  the  Selection's  brush. 

♦/ 

void  Selection  ::WritcBmsh  (ostream&  to) 

{ 

EBnish*  brush  =  (IBrush*)  GetBiushO; 
if  (brush  =  nil) 

I 

to  «  startdata  «  "  b  u\n”; 

) 

else  if  (brush- >NoncO) 

{ 

to  «  "none  SetB  "  «  startdata  «  "  b  nV; 

I 

else 

( 

int  p  s=  brush->GetLinePattemO; 

to  «  startdata  «  "  b  "  «  p  «  "Sn"; 

int  w  =  brush->Width(); 

boolean  1  =  brush->LeftArrow(); 

boolean  r  -  brush->RightArrow(); 

to  «  w  «  ”  "  « 1 «  "  "  «  r  «  " 

const  int*  dashpat  *  brush->GctDashPattcm(); 

int  dashpatsize  =  brush->GctDashPattcmSize(); 

int  dashoffset  *=  brush->GctDashOffset(); 

if  (dashpatsize  <=«  0) 

I 

to  « *'[]  *' «  dashoffset «  " 

) 

else 

{ 

to  « 

for  (int  i  =  0;  i  <  dashpatsize  -  1;  i+-f) 

I 

to  «  dashpat[i] « *' 

I 

to  «  dashpat[ij  « *’]  "  «  dashoffset «  " 

} 

to  «  "SetfiNn"; 

I 

) 

/* 

•  WriteFgColor  writes  the  Selection’s  foreground  color. 

*/ 

void  Selection:: WriteFgColor  (ostrcam&  to) 

I 

IColor*  f geo  lor  »  (IColor*)  GetFgColoK); 
if  (fgcolor  **=  nil) 


to  «  startdata  «  "  cfg  uNn"; 

) 

else 

{ 

const  char*  name  »  fgcolor->GetNameO; 

to  «  startdata  «  "  cfg  ”  «  name  «  "\n"; 

if  (strcmp(namc,  "white")  ==  0 II  strcmp(namc,  "White")  =  0) 

I 

to  «  "1  1  1  SrtCFgNn"; 

} 

else 

{ 

int  r,  g,  b; 

fgcolor->Intcnsitics(r,  g,  b); 

float  fr  =  float(r)  /  Oxffff; 

float  fg  =s  float(g)  /  Oxffff; 

float  fb  =  float(b)  /  Oxffff; 

to  «  fr  «  "  "  «  fg  «  "  "  « fb  «  "  SetCFgNn"; 

I 

I 


I* 

*  WriteBgColor  writes  the  Selection's  background  color. 

V 

void  Selection  ::WritcBgColor  (ostrcam&  to) 

I 

IColor*  bgcolor  as  (IColor*)  GetfigColor(); 
if  (bgcolor  ==  nil) 

I 

to  «  startdata  «  "  cbg  u\n"; 

) 

else 

{ 

const  char*  name  -  bgcolor->GetNameO; 
to  «  startdata  «  "  cbg  "  «  name  «  "\n"; 
if  (strcmpfname,  "white")  =  0  II  strcmpfname,  "White")  =  0) 
{ 

to  «  "1  1  1  SetC!Bg\n"; 

else 

{ 

int  r,  g,  b; 

bgcolor->Intensities(r,  g,  b); 

float  fr  =  float(r)  /  Oxffff; 

float  fg  =:  float(g)  /  Oxffff; 

float  fb  =  floatfb)  /  Oxffff; 

to  «  fr  «  "  "  «  fg  «  "  "  « fb  «  "  SetCBgNn"; 

} 

I 

} 

/* 

•  WriteFont  writes  the  Selection's  font. 

*/ 

void  Selection  "WriteFont  (ostream&  to) 

I 

IFont*  font  =  (IFont*)  GetFont(); 
if  (font  *=  nil) 

I 

to  «  startdata  «  "  f  u\n"; 

} 

else 

i 

const  char*  name  =  font“>GctNamc(); 
const  char*  pf  font->GetPrintFontO; 
const  char*  ps  font->GctPrintSize(); 
to  «  startdata  «  "  f  "  «  name  «  "\n"; 
to  «  "/"  «  pf  «  "  "  «  ps  «  "  SetFVn"; 

) 


/* 

*  WritePattcm  writes  the  Selection's  pattern. 


*/ 

void  Selection::WritePattcm  (ostrcam&  to) 

{ 

IPattcm*  pattern  *  (IPattem*)  GetPattcm(); 
if  (pattern  ==  nil) 

( 

to  «  staitdata  «  ”  p  uNn"; 

} 

else  if  (pattem->None()) 

{ 

to  «  "none  SctP  "  «  staitdata  «  "  p  n\n"; 

} 

else  if  (pattcm->GetSizeO  >  0) 

I 

const  int*  data  =  pattcm->GetDataO; 
int  size  =  pattcm->GctSize(); 
to  «  staitdata  «  "  pNn"; 
to  «  "< 
if  (size  <=  8) 

{ 

for  (int  i  =  0;  i  <  8;  i++) 

{ 

sprintf(buf,  data[i]  &  Oxff); 

to  «  buf  «  " 

I 

) 

else 

for  (int  i  =  0;  i  <  pattemHeight;  i++) 

{ 

sprintf(buf,  pattern  Width/4,  data[i]); 

if  (i  !=  pattemHci^t  -  2) 

{ 

to  «  buf  «  " 

} 

else 

I 

to  «  buf  « ‘"Vn 

} 

} 

1 

to  «  ">  -1  SetPsn’*; 

I 

else 

I 

float  graylevel  =  pattem*>GetGrayLcvclO; 
to  «  staitdata  «  "  p\n"; 
to  «  graylevel «  "  SetPVn"; 

} 

) 

/• 

*  WriteTrans former  writes  the  Selection's  transformation  matrix. 

*/ 

void  Sclcction::WritcTransfoimcr  (ostream&  to) 

{ 

Transformer*  t «  GetTransfonnerO; 
if  (t  nil  II  *t  »=  *idcntity) 

i 

to  «  staitdata  «  "  t  uNn"; 

I 

else 

\ 

float  mat(6]; 

t->GctEntries(mat[0],  mat[l],  mat[2],  n>at[31,  mat[4],  mat[5]); 
to  «  staitdata  «  "  fVn[ 
for  (int  i  K  0;  i  <  6;  i++) 

I 

to  « (fabs(mat[ij)  <  0.0001  ?  0.0  :  mat[i])  «  " 

} 

to  « *']  concafVn"; 

) 

I 
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/♦ 

*  CreateHandles  creates  handles  outlining  the  Selection’s  shape. 

*1 

void  Selection:;CreatcHandlcs  () 

{ 

const  intN  =  8; 
const  int  RUBFT  =  0; 

Coord  K  r»  t,  hx,  hy,  x[N],  y[N]; 

Picturc::GctBox{l,  b,  r,  t); 

hx  =  (r  +  l)/2; 
hy  =  (t  +  b)/2; 
x[0]-l;y[0]«b; 
x[l]  =  hx;y[l]  =  b; 
xl2]  =  r;y[2]-b; 
x[3]-r;yI3]=hy; 
x[4]  =  r,y[4]=t; 
x[5j  =  hx;y[5]  =t; 
xl6]  =  l;y[6]  =  t; 
x[7]-l;ym  =  hy; 

handles  =  new  RubberHandles(nil,  nil,  x,  y,  N,  RtJBPT,  HDSI^); 

} 


/* 

*  DeletcHandles  zeroes  the  handles  to  record  it  has  none  now. 

*/ 

void  Selection::DeletcHandlcs  () 

{ 

if  (handles  !=nil) 

{ 

delete  handles; 
handles  =  nil; 

} 

} 

r 

*  SetClassId  describes  the  type  of  selection  it  is  storing 

V 

void  Selection  "SetClassId (Classid  classid) 

{ 

cid  =  classid; 

) 

f* 

*  GctClassId  returns  the  type  of  selection  it  is  storing 
*1 

Gassid  Selection  :;GetClassId() 

i 

return  cid; 

} 

boolean  Selection:  JsEdgeComponentO  { 
return  (cid  SELFLOOP)  II  (cid  =  DATAFLOW_SPLINE)  II 
(cid  =  LAT.DF)  II  (cid  =  LABEL_DF)  II 
(cid  ^  LABEL.SL); 

} 

boolean  Sc]ection::Is Vertex ComponcntO  I 
return  (cid  OPERATOR)  II  (cid  =  LABEL.OP)  II 
(cid  =  MET.OP); 

) 

/♦ 

*  NPtSelection  passes  its  argument  to  Selection. 

V 

NPtSelection:  J'JPtSclection  (Classid  classid.  Graphic*  gs) :  (classid,  ^) 

I 

myname  *=  "YouForgotToDefincMyName"; 
rubbcrvcrtcx  “  nil; 

1 
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NPtSclcction::NPtSclcction(Graphic*  gs) :  (gs) 

1 

myname  =  '‘YouFoigotToDcfincMyName"; 
rubbcrvcrtex  “  nil; 

} 

/* 

*  GetOriginal  returns  the  points  that  were  passed  to  the 

*  thcNPtScIcction  subclass's  constructor. 

♦/ 

intNPtS election  "GetOriginal  (const  Coord*&,  const  Coord*&) 

i 

return  0; 

I 

f* 

*  GetClassld  returns  the  type  of  selection  it  is  storing 

V 

Classld  NPlSelcction;;GctClassIdO 

{ 

return  Selection:  :GetClassIdO; 

) 

/♦ 

*  ShapedBy  returns  tnie  if  any  of  the  NPtSelection's  points  falls 

*  within  the  given  distance  of  the  given  point 

*/ 

boolean  NPtSelection::ShapedBy  (Coord  px,  Coord  py,  float  maxdist) 

{ 

const  Coord*  ux; 
const  Coord*  uy; 
int  n  *  GetOriginal  (ux,  uy); 

Coord*  X  =  new  Coord[n]; 

Coord*  y  =  new  Coord[n]; 

CopyArray(ux,  uy,  n,  x,  y); 

TotalTransfomi(x,  y,  n); 

int  closestpt «  ClosestPoint(x,  y,  n,  px,  py); 

boolean  shapedby  =  Distancc(x[closcstpt],  y [closestpt],  px,  py)  <=  maxdist; 
delete  x; 
delete  y; 
return  shapedby; 

) 


/* 

*  CreateShape  creates,  stores,  and  returns  a  rubberband  representing 

*  the  NPlS election's  shape  for  the  user  to  reshape. 

V 

Rubberband*  NPtSelection::CreatcShapc  (Coord  px.  Coord  py) 

{ 

const  Coord*  ux; 
const  Coord*  uy; 
int  n  -  GetOriginal  (ux,  uy); 

Coord*  X  *=  new  Coordfn]; 

Coord*  y  *5  new  Coordfn]; 

CopyArTay(ux,  uy,  n,  x,  y); 

Totarrransform(x,  y,  n): 

int  rubpt  =  CloscstPoint(x,  y,  n,  px,  py); 

rubbcrvertcx  =  CreateRubbcrVertex(x,  y,  n,  mbpt); 

delete  x; 

delete  y; 

return  rubbeivcrtex; 

1 

/• 

*  GctRcshapcdCopy  creates  and  returns  a  copy  of  the  NPtSelection 

*  incorporating  the  change  made  to  its  shape. 

V 

Selection*  NPtSelection ::GetReshapedCopy  0 
I 

Coord*  x; 
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Coord*  y; 
intn; 
int  rubpt; 

rubbervcrtcx->GctCurrCTit(x,  y,  n,  rubpt); 
delete  rubbcTvcrtex; 

InvTotaITransform(x,  y,  n); 

Selection*  reshaped  -  CreateReshapedCopy(x,  y,  n); 
delete  x; 
delete  y; 
return  reshaped; 

I 

/* 

*  ReadPoints  reads  a  set  of  points  as  cfficiwitly  as  possible  by 

*  using  dynamic  static  buffers  instead  of  mallocing  on  every  call. 

*f 

void  NPtSclcction;:RcadPoints  (istream&  from,  const  Coord*&  x,  const  Coord*&  y, 
int&  n) 

I 

const  int  INITIALSIZE  =  15; 
static  int  sizepoints  =  0; 
static  Coord*  xcoords  =  nil; 
static  Coord*  ycoords  =  nil; 

Skip(from); 
from  »  n; 
if  (n  >  sizepoints) 

{ 

delete  xcoords; 
delete  ycoords; 

sizepoints  ■  max(ii,  INITIALSIZE); 
xcoords  =  new  Coord[sizepoints]; 
ycoords  =  new  Coord[sizepoints]; 

} 


for  (int  i  =  0;  i  <  n;  i++) 

{ 

if  (versionnumber  <  NONREDUNDANTVERSION) 

I 

Skip(from); 

} 

from  »  xcoords [ij  »  ycoordsfij; 

} 

X  s=  xcoords; 
y  «  ycoords; 

} 


/* 

*  WritcData  writes  the  NPtSclcction's  data  and  Postscript  code  to 

*  draw  it 

V 

void  NRSelection:;WriteData  (ostrcam&  to) 

{ 

const  Coord*  x; 
const  Coord*  y, 
int  n  «=  GetOriginaI(x,  y); 

to  «  "Begin  "  «  star^ta  «  "  "  «  mynamc  «  ”Sn"; 
WriteGS(to); 

to  «  staitdata  « ** "  «  n  «  "Vn"; 
for  (int  i  *  0;  i  <  n;  i++) 

I 

to  «  x[i]  «  "  "  «  y[i]  «  "Vn"; 

I 

to  «  n  «  "  "  «  mynamc  « ’\i"; 
to  «  "EndSnVn"; 

) 


/* 

•  CrcatcRubbcr Vertex  creates  and  returns  the  right  land  of 

•  RubberVertex  to  represent  the  NPlSelection’s  shape. 

•/ 
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RubberVcitex^  NPtSelection::CreateRubberVertex  (Coord*,  Coord*,  int,  int) 

{ 

/*  implemoit  it  in  your  subclass  */ 
return  nil; 

} 


/* 

*  CrcateReshapcdCopy  creates  and  returns  a  reshaped  copy  of  itself 

*  using  the  passed  points  and  its  graphic  state. 

*/ 

Selection*  NPtSclection:; CrcateReshapcdCopy  (Coord*,  Coord*,  int) 

{ 

/*  implement  it  in  your  subclass  */ 
return  nil; 

} 

f* 

*  CreateHandles  creates  handles  hi  flighting  the  NPtSclection 's 

*  points. 

*1 

void  NPtSclcction::CreatcHandlcs  () 

{ 

const  int  RTJBJPT  =  0; 

const  Coord*  ux; 

const  Coord*  uy; 

int  n  GctOriginal(ux,  uy); 

Coord*  X  *  new  Coord[n]; 

Coord*  y  «  new  Coord[n]; 

CopyArray(ux,  uy,  n,  x,  y); 

TotalTransform(x,  y,  n); 

handles  =  new  RubbcrHandlcs(nil,  nil,  x,  y,  n,  RUBFT,  HDSIZE); 
delete  x; 
delete  y; 

) 

f* 

*  TotalTransform  transforms  the  given  points  from  the  Selection's 

*  coordinate  system  to  the  scrcwi's  coordiiwte  system. 

V 

void  NPtSelcction::TotalTransform  (Coord*  x.  Coord*  y,  intn) 

{ 

Transformer  total; 

TotalTransformation(total); 
for  (int  i  =  0;  i  <  n;  i++) 

I 

total  .Trans form(x[i],  y[i]); 

) 

} 

I* 

*  InvTotalTransform  transforms  the  givoi  points  from  the  screen’s 

*  coordinate  system  to  the  NPtSclection’s  coordinate  system. 

♦/ 

void  NPtSclection rdnvTotalTransform  (Coord*  x.  Coord*  y,  int  n) 

{ 

Transformer  total; 

TotalTransformation(total); 
for  (int  i  =  0;  i  <  n;  i++) 

( 

total .InvTransform(x[i],  y[i]); 

} 

1 


/* 

*  CloscstPoint  returns  the  index  within  the  arrays  of  the  closest 

*  point  to  the  given  coordinates. 

*/ 

int  NPtSclection ::CloscstPotnt  (Coord*  x.  Coord*  y,  int  n.  Coord  px. 
Coord  py) 
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{ 

int  closestpt  0; 

float  mindist  =s  E>istancc(x[0],  y[0],  px,  py); 
for  (int  i  =  1;  i  <  n;  i++) 

{ 

float  dist  =Distancc(x[i],  y[i],  px,  py); 
if  (dist  <  mindist) 


mindist  =  dist; 
closestpt  =i; 

) 

} 

return  closestpt; 

} 


/♦ 

♦  LcftAcont  checks  whether  the  left  arrowhead  contains  the  point. 

♦/ 

boolean  NPtSelection::LeftAcont  (Coord  xO,  Coord  yO,  Coord  xl.  Coord  yl, 
PointObj&  po,  Graphic*  gs) 

{ 

IBrush*  brush  ==  (IBrush*)  gs->GetBrush(); 
if  (bmsh->LcftArrowO) 

{ 

return  AiTowHeadcont(xO»  yO,  xl,  yl»  po,  gs); 

) 

return  false; 

} 

(* 

*  Rig^itAcont  checks  whether  the  right  arrowhead  contains  the  point. 

*1 

boolean  NPtScIection::RightAcont  (Coord  xO,  Coord  yO,  Coord  xl,  Coord  yl, 
PointObj&  po.  Graphic*  gs) 

{ 

IBrush*  brush  =  (IBrush*)  gs->GetBmsh(); 
if  (bmsh->RightArrow()) 

{ 

return  ArrowHeadcont(xO,  yO,  xl,  yl,  po,  gs); 

1 

return  false; 

) 


r 

*  LeftAints  checks  whether  the  left  arrowhead  intersects  the  area. 

*/ 

boolean  NPtSelection::LeftAints  (Coord  xO,  Coord  yO,  Coord  xl.  Coord  yl, 
BoxObj&  userb.  Graphic*  gs) 

I 

IBrush*  brush  =  (IBrush*)  gs->GctBrush(); 
if  (brush ->LeftArrowO) 

{ 

return  ArrowHeadints(xO,  yO,  x  1,  yl ,  userb,  gs); 

} 

return  false; 

} 


r 

*  RightAints  checks  whether  the  right  arrowhead  intersects  the  area. 

•/ 

boolean  NPtSelectionrrRightAints  (Coord  xO,  Coord  yO,  Coord  xl,  Coord  yl, 
BoxObj&  userb,  Graphic*  gs) 

{ 

IBrush*  brush  «  (IBrush*)  gs->GctBrush(); 
if  (brush ->RightA no  w()) 

i 

return  AnowHcadintsfxO,  yO,  xl,  yl,  userb,  gs); 

1 

return  false; 

I 


/• 
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*  drawLcftA  draws  the  left  arrowhead  if  it  should  be  drawn. 

*/ 

void  NPtSelection::drawLeftA  (Coord  xO,  Coord  yO,  Coord  xl»  Coord  yl » 
Canvas*  c,  Graphic*  gs) 

( 

DBnish*  brush  =  (IBnish*)  gs->GetBrash(); 
if  (brush->LcftAiTOw0) 

{ 

drawAiTowHcad(xO»  yO,  xl,  yl,  c,  gs); 

} 

) 

I* 

*  drawRightA  draws  the  right  arrowhead  if  it  should  be  drawn. 

V 

void  NPtSelection "drawRightA  (Coord  xO,  Coord  yO,  Coord  xl.  Coord  yl. 
Canvas*  c.  Graphic*  gs) 

{ 

IBrush*  brush  =  (IBrush*)  gs->GetBrush(); 
if  (brush->RightArrow()) 

{ 

drawAiTowHead(xO,  yO,  xl,  yl,  c,  gs); 

} 

} 

f* 

*  Define  an  arrow  head  with  its  tip  at  the  origin  and  its  tail  on  the 

*  negative  x  axis  so  we  can  rotate  the  tail  about  the  origin  to  the 

*  right  angle  and  translate  the  tip  to  the  right  point 

V 

static  const  int  ARROWN  *  3; 

static  Coord  arrowxfARROWN]  =  {0,  -ARROWHEIGHT,  -ARROWHEIGHT); 
static  Coord  arrowy[ARROWNl  =  {0,  ARROWWIDTH/2,  -ARROWWIDTH/S); 
static  Coord  arrowconvx [ARROWN  +1]; 
static  Coord  arrowconvy[ARROWN  +1]; 

/* 

*  MergeArrowHeadTol  returns  a  tolerance  to  use  around  the  graphic’s 

*  extent  that  includes  the  arrowhead’s  size. 

V 

float  NPtSclection::MergcArrowHeadTol  (float  tol.  Graphic*  gs) 

[ 

IBrush*  brush  =  (IBrush*)  gs->GctBrush(); 
if  (brush->LeftArrowO  II  brush->RightArrow()) 

1 

float  magnif  =  1; 

Transfomier*  view  =  gctRootO->GctTransfonnCT(); 
if  (view  !=nil  &&  !vicw->Rotatcd()) 

{ 

/*  rot  breaks  magnif  calc  */ 
float  fpxO,  fpyO,  fpxl ,  fpy  1 ; 
vicw->Transfoim(0.0,  0.0,  fpxO,  fpyO); 
vicW‘>Transfonn(I.0, 1.0,  fpxl,  fpyl); 
magnif  =  fpyl  -  fpyO; 

1 

float  arrowiol  =  0.5  *  ARROWWIDTH  *  points  *  magnif; 
tol  =  max(arrowtol,  tol); 

) 

return  tol; 

} 


r 

*  ArrowHeadcont  returns  trae  if  the  arrowhead  contains  the  point 

*  The  arrowhead  may  be  filled  or  unfilled  depending  on  the  pattern. 

V 

boolean  NPlScIcction:;ArrowHeadcont  (Coord  xO,  Coord  yO,  Coord  xl.  Coord  yl, 
PointObj&  po.  Graphic*  gs) 

{ 

boolean  contains  false; 

IPattem*  pattern  s=  (IPattem*)  gS“>GctPattem0; 
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SetCTM(xO,  yO,  xl,  yl,  gs,  !pattem->None()); 

PointObj  pt(&po); 

invTransfonn^t.x,  pt.y»  gs); 

if  (pattem->None()) 

{ 

MultiLineObj  ml(arrowx,  arrowy,  ARROWN); 

LineObj  I (arrowx [ARROWN- 1],  arrowy[ARROWN-l],  aiTowx[0],  arrowy [0]); 

contains  =  ml. Con tains(pt)  II 1. Contains (pt); 

} 

else 

{ 

FillPolygonObj  fp(arrowx,  arrowy,  ARROWN); 

contains  -  fp. Contains  (pt); 

) 


RestoreCTM(gs); 
return  contains; 

} 


/* 

*  ArrowHeadints  retunw  true  if  the  arrowhead  intersects  the  area, 

*  The  arrowhead  may  be  filled  or  unfilled  decoding  on  the  pattern. 

*l 

boolean  NPtSelection:: ArrowHeadints  (Coord  xO,  Coord  yO,  Coord  xl.  Coord  yl, 
BoxObj&  userb.  Graphic*  gs) 

{ 

boolean  intersects  =  false; 

IPattem*  pattern  =  (IPattem*)  gs->GetPattem(); 

SctCTM(xO,  yO,  xl,  yl,gs,  !pattem->Nonc()); 

transformList(arrowx,  arrowy,  ARROWN,  arrowconvx,  arrowconvy,  gs); 
if  (pattem“>None()) 

I 

arrowconvx  [ARROWN]  =  arrowconvx[0]; 
arrowconvy  [ARROWN]  =  arrowconvy  [0]; 

MultiLineObj  ml  (arrowconvx,  arrowconvy,  ARROWN  +  1); 
intersects  =  ml  Jntcrsccts(uscih); 

} 

else 

{ 

RllPolygonObj  fp(arTOwconvx,  arrowconvy,  ARROWN); 
intersects  =  fp.Intersects  (userb); 

I 

RestoreCTM(gs); 
return  intersects; 

} 


/* 

*  drawArrowHead  draws  the  arrowhead. 

*/ 

void  NPtSelection ridrawAnowHead  (Coord  xO,  Coord  yO,  Coord  xl.  Coord  yl. 
Canvas*  c.  Graphic*  gs) 

I 

IPattem*  pattern  *=  (IPattem*)  gs->GetPattemO; 
if  (!pattcm->NoncO) 

I 

SctCTM(xO,  yO,  xl,  yl,  gs,  trae); 
update(gs); 

pFillPolygon(c,  arrowx,  arrowy,  ARROWN); 

RcstoreCTM(gs) ; 

} 


IBrush*  brush  =  (IBrush*)  gs->GetBrash(); 
if(lbrush->NoneO) 

I 

SetCTM(xO,  yO,  xl ,  yl ,  gs,  false); 
update(gs); 

pPolygon(c,  arrowx,  arrowy,  ARROWN); 
RcstorcCTM(gs); 

} 

I 
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/* 

*  SctCTM  stores  gs‘s  former  transformation  matrix  and  overwrites  it 

*  with  a  new  one  defined  to  scale  the  arrowhead  to  its  proper  size 

*  and  align  it  with  the  line.  The  matrix  includes  the  grapWc's 

*  topmost  parent's  scaling  but  no  other  parents'  scaling  so  the 

*  arrowhead  will  change  size  when  we  zoom  the  view  but  stay  the  same 

*  size  when  we  scale  the  line.  New  argument  pattcmfill  special- 

*  cases  filling  arrowhead  to  include  the  outermost  edge  of  the 

*  outline  drawn  by  the  bmsh  so  dashed  brushes  won't  expose  white 

*  space  where  there's  no  pattern  fill. 

*/ 

static  Transformer*  origCTM; 
static  Transformer*  arrowCTM; 

void  NPtSclcction::SctCTM (Coord  xO,  Coord  yO,  Coord  xl.  Coord  yl, 
Graphic*  gs,  boolean  pattcmfill) 

{ 

if  (arrowCTM  =  nil) 

I 

arrowCTM  =  new  Transformer, 
arro  wCTM->RcfcrcnccO ; 

) 

*arrowCTM  =  *idcntity; 


if  (pattcmfill) 

1 

IBrush*  brush  “  (IBrush*)  gs->GctBiushO; 
float  bw  =  brtish->WidthO; 

float  padtip  =  sqrt(ARROWHEIGHT*ARROWHEIGHT  + 
0.25*ARROWWIinH*ARROWWIDTH)  *  bw  /  ARROWWIDTH; 
float  padtaii  =  bw  /2; 

float  pattcmscalc  =  (ARROWHEIGHT  +  padtip  +  padtaii)  /  ARROWHEIGHT; 
arrowCTM->Scalc(pattcmscaIc,  pattcmscalc); 
arrowCTM->Translatc(padtip,  0.); 

I 

atTOwCTM->Scalc(point,  point); 

Transformer*  view  =  getRoot()->GetTransformcrO; 
if  (view  !=nil  &&  !vicw->RotatcdO) 

I 

/*  rot  breaks  magnif  calc  */ 
float  fpxO,  fpyO,  fpxl,fpyl; 
vicw->Tiansform(0.0, 0.0,  fpxO,  fpyO); 
view->Transform(1.0, 1.0,  fi)xl,  fpyl); 
float  arrowxmag  *  fpxl  -  fpxO; 
float  arrowymag  =  fpyl  -  fpyO; 
if  (arrowxmag  *=  arrowymag) 

i 

/*  won't  scale  arrows  in  BrushView  */ 
arrowCTM->Scale(arrowxmag,  arrowymag); 

} 

I 


float  tipx,  tipy,  tailx,  taily; 
transform(float(xO),  float(yO),  tipx,  tipy,  gs); 
lransform(float(xl),  float(yl),  tailx,  taily,  gs); 
float  angle  =  Slopeftipx  >  tailx,  tipy  -  taily); 
anowCTM->Rotatc(anglc); 
anowCTM->Translatc(tipx,  tipy); 

origCTM  «  gs->GctTransformerO; 
if  (origCTM  1=  nil) 

{ 

origCn'M->RcfcrenccO; 

) 

gs->SetTransformcr(arrowCTM); 

} 


*  RcstoreCTM  restores  g^'s  original  transfonnation  matrix. 

*/ 

void  NPtSclcction::RcstoieCrrM  (Graphic*  gs) 

I 
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gS“>SctTransformcKorigCTM); 

Unref(origCTM); 

I 

/* 

♦  sign  returns  1  if  the  number's  normcgativc,  -1  if  it’s  negative. 

V 

inline  float  sign  (float  num) 

{ 

return  (num  >=  0.)  ?  1. :  -1.; 

} 

f* 

*  Slope  returns  the  number  of  degrees  in  the  given  slope. 

V 

float  NPtSclection::Slope  (float  dx,  float  dy) 

{ 

float  angle  ~  0.; 
if  (dx  0.) 

{ 

angle  =  sign(dy)  *  90.; 

} 

else 

I 

angle  »  degrecs(atan(dy/dx)); 
if(dx<0.) 

i 

angle  +==  sign(dy)  *  180.; 

} 

return  angle; 

} 


slellipses^h 

#ifndef  sleUipses_h 
#definc  slellipses_h 

#include  "selection.h" 

class  Operator, 

//  A  EllipseSelection  draws  a  ellipse  with  an  outline  and  a  filled 
//  interior. 

class  EllipseSelection  :  public  Selection  { 
public: 

EllipscSclcction(Coord,  Coord,  Coord,  Coord,  Graphic*  *  nil); 
EllipseSelection(istream&,  State*); 

Graphic*  CopyO; 

void  GctOriginal(Coord&,  Coord&,  int&,  int&); 
protected: 

void  WriteData(ostream&); 


if  A  CircleSelection  draws  a  circle  with  an  outline  and  a  filled 
//  interior, 

class  CircleSelection  :  public  Selection  { 
public: 

Circles elcction(C!oord,  Coord,  int.  Graphic*  =  nil); 

Circles  election  (istream&.  State*); 

Graphic*  CopyO; 

void  GctOriginal(Coord&,  Coord&,  int&); 


protected: 


void  WriteData(ostreani&); 


}: 


#endif 


slellipses.c 


#include  *'df  del  asses  ii” 

#includc  "idlipscs.h" 

#include  "slcllipses-h" 

#lnclude  <IntcrVicws/Std/strcam.h> 

//  EllipscSclcction  creates  the  ellipse's  filled  interior  and  outline. 

EIlipscSelcction:JEllipseSelcction  (Coord  xO,  Coord  yO,  int  rx,  int  ry, 
Graphic*  gs) :  (OPERATOR,  gs)  { 

Append  (new  IFillEllipse(xO,  yO,  rx,  ry)); 

Append  (new  ElIipsc(xO,  yO,  rx,  ry)); 

) 


//  EllipscSclcction  reads  data  to  initialize  its  graphic  state  and 
If  create  its  filled  interior  and  outline. 

ElIipscSelcction::ElIipscSelection  (istrcam&  from,  State*  state) : 
Selection  ((Graphic  *)ral)  { 

RcadGS(from,  state); 

Sk:ip(from); 

Coord  xO,  yO; 
int  rx,  ry; 

from  »  xO  »  yO  »  rx  » ly; 

Appcnd(ncw  IFillEllipse(xO,  yO,  rx,  ry)); 

Appcnd(ncw  Ellipsc(xO,  yO,  rx,  ry)); 

} 


//  Copy  returns  a  copy  of  the  EllipscSelection. 

Graphic*  EllipscSclcction: rCopy  ()  { 

Coord  xO,  yO; 
intrx.ry; 

GctOriginal(xO,  yO,  rx,  ly); 

return  new  EllipscSclcction (xO,  yO,  rx,  ly,  this); 

} 


//  GctOriginal  returns  the  center  point  and  the  x  and  y  radii  lengths 
//  that  were  passed  to  the  EllipscSclection's  constnictor. 

void  EllipscSclcction ::GctOriginal  (Coord&  xO,  Coord&  yO,  int&  rx,  int&  ry)  { 
((Ellipse*)  Last())->GctOriginal(xO,  yO,  rx,  ry); 

I 

//  WrItcData  writes  the  EllipseSelection's  data  and  Postscript  code  to 
//  draw  it 

void  EllipscSclcction::WritcData  (ostrcam&  to)  { 

Coord  xO,  yO; 
int  rx,  ry; 

GetOriginal(xO,  yO,  rx,  ry); 

to  «  "Begin  "  «  startdata  «  "  ElliNn"; 

WritcGS(to); 

to  «  startdata  «  "\n"; 

to  «  xO  «  "  "  «  yO  «  "  "  «  rx  «  "  "  «  ry  «  "  ElliVn"; 
to  «  "EndSnV; 

I 

//  CirclcSclcction  creates  the  circle's  filled  interior  and  outline. 

CircIeSclcction::CirclcS election  (Coord  xO,  Coord  yO,  int  r,  Graphic*  gs) 

:(gs)  { 

Appcnd(ncw  IRllCircle(xO,  yO,  r)); 

Appcnd(ncw  Circle(xO,  yO,  r)); 

} 


//  CirclcSclcction  reads  data  to  initialize  its  graphic  state  and 
//  create  its  filled  interior  and  outline. 
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Circles  elect!  on  "Circles  election  (istream&  from,  State*  state) : 
Selection  ((Graphic *)nil)  { 

ReadGS(from,  state); 

Skip(from); 

Coord  xO,  yO; 
intr, 

from  »  xO  »  yO  »  r, 

Append(ncw  IRllCircle(xO,  yO,  r)); 

Append(ncw  Circle(xO,  yO,  r)); 

} 


//  Copy  returns  a  copy  of  the  CircleS election. 

Graphic*  CirclcSclcction::Copy  ()  { 

Coord  xO,  yO; 
intr, 

GetOriginal(xO,  yO,  r); 

return  new  CirclcSclection(xO,  yO,  r,  this); 

} 


//  GetOriginal  returns  the  center  point  and  radius  length  that  were 
//  passed  to  the  CircIeSelection's  constmctor. 

void  CircIcSelection::GetOriginaI  (Coord&  xO,  Coord&  yO,  int&  r)  { 
((Circle*)  LastO)->GetOriginal(xO,  yO,  r,  r); 

} 

//WriteData  writes  the  CircIeSelection's  data  and  Postscript  code  to 
//  draw  it. 

void  CircleSelection:;WritcData  (ostream&to)  { 

Coord  xO,  yO; 
int  r, 

GetOrigina!(xO,  yO,  r); 

to  «  "Begin  "  «  startdaU  «  "  CircNn"; 

WritcGS(to); 

to  «  staitdata  «  "\n"; 

to  «  xO  «  "  "  «  yO  «  "  "  «  r  «  "  CircNn"; 
to  «  "EndVnNn"; 

) 


slline&h 


#ifiidcf  sllincs_h 
#dcfinc  sllines_h 

#include  "sclection.h" 

//  A  LineSelection  draws  a  line. 

class  LineSelection  :  public  NPtS election  { 
public: 

LineSclcction(Coord,  Coord,  Coord,  Coord,  Graphic*  =  nil); 
LincSclection(istrcam&,  State*); 

Graphic*  CopyQ; 

void  GctOriginal2(Coo!ti&,  Coord&,  Coord&,  Coord&); 
int  GetOriginal  (const  Coord*&,  const  Coord*&); 

Selection*  CreatcRcshapcdCopy(Coord*,  Coord*,  int); 

protected: 

void  WriteData(ostream&); 

RubberVertex*  CreateRubbcrVertex(Coord*,  Coord*,  int,  int); 
void  uncachcChildrcnO; 

void  getExtcnt(float&,  float&,  float&,  float&,  float&.  Graphic*); 
boolean  contains(PointObj&,  Graphic*); 
boolean  intereects(BoxObj&,  Graphic*); 
void  draw(Canvas*,  Graphic*); 

void  drawQippcd(Canvas*,  Coord,  Coord,  Coord,  Coord,  Graphic*); 
Graphic*  line;// draws  the  line 
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}; 


//  A  MultiLincSelcction  draws  a  set  of  connected  lines  with  a  filled 
//  interior. 

class  MultiLincS Section  :  public  NPtSclection  { 
public: 

Mu ItiLincSclection (Coord*,  Coord*,  int,  Graphic*  -  nil); 

Mu ItiLincS election (istrcam&,  State*); 

Graphic*  CopyO; 

int  GetOriginaJ  (const  Coord*&,  const  Coord*&); 
protected: 

void  lnit(Coord*,  Coord*,  int); 

RubberVeitcx*  CreatcRubbcrVertex(Coord*,  Coord*,  int,  int); 
Selection*  CrcatcRcshapcdCopy(Coord*,  Coord*,  int); 

void  uncacheCThildrenO; 

void  getExtait(float&,  float&,  float&,  float&,  float&,  Graphic*); 
boolean  contains(PointObj&,  Graphic*); 
boolean  inteisects(BoxObj&,  Graphic*); 
void  draw(Canvas*,  Graphic*); 

void  drawClippcd(C^vas*,  Coord,  Coord,  Coord,  Coord,  Gn^hic*); 

Graphic*  ifillmultiline;//  fills  a  set  of  connected  lines 
Graphic*  multiline;//  draws  a  set  of  connected  lines 
Coord  1x0,  lyO,  1x1,  lyl;//  stores  endpoints  of  left  arrowhead 
Coord  rxO,  ryO,  rxl,  lyl;// stores  endpoints  of  ri^t  arrowhead 


}; 


#endif 


sipicth 


#i£hdef  slpict_h 
#define  slpict_h 

#include  "selcction.h" 

//  Declare  imported  types. 

class  IFont; 
class  EFontList; 

//  A  PictSelcction  contains  other  Selections. 

class  PictSelection  :  public  Selection  { 
public: 

PictSclection(Graphic*  ^  nil); 

PictSclcction(FILE*,  State*); 

Graphic*  CopyQ; 
boolean  HasChildren(); 
void  PropagateO; 

boolean  Valid(); 

boolean  WritePicture(FILE*,  State*,  boolean); 

Selection*  GctCurrcnt(); 

Selection*  Rrst(); 

Selection*  Last(); 

Selection*  Ncxt(); 

Selection*  Prcv(); 

Selection*  RrstSclectionContaining(PointObj&); 
Selection*  LastSclcctionContaining(PointObj&); 
int  Select! onsContaining(PointObj&,  Selcction**&); 

Selection*  RrstSclectionlntcrsecting(BoxObj&); 
Selection*  LastSelectionInter5ecting(BoxObj&); 


277 


int  SclectionsIniersccting(BoxObj&,  Selection**  &); 

Selection*  RrstSelectionWithin(BoxObj&); 

Selection*  LastSelcctionWithm(BoxObj&); 
int  Selections  Within  (BoxObj&,  S  election  **&); 

int  Findindex  (Selection*); 

Selection*  GctSclcction(int); 
protected: 

PictSelcction(istream&,  State*); 
void  ReadChildrcn(istream&,  State*); 

void  WritcPicnirc(ostrcam&,  State*,  boolean); 

void  WriteCoinments(ostream&); 

void  WritePiologue(ostrcam&); 

void  WriteDrawing(ostrcam&); 

void  WriteData(ostrcam&); 

void  WritcTrailer(c®trcam&); 

void  ScaleToPostscriptCoordsO; 

void  ScaleToScrecnCoordsO; 

void  CollectFonts(IFontList*); 

void  Mci^e(IFont*,  IFontList*); 

boolean  valid;//  true  if  creation  of  PictSclcction  succeeded 


); 


//  Define  inline  access  functions  to  get  members'  values. 

inline  boolean  PictSclection:: Valid  ()  { 
return  valid; 

} 

//  Cast  these  functions  to  return  Selections  instead  of  Graphics. 

inline  Selection*  PictSclection  ::GetCuiTentO  { 
return  (Selection*)  Picture::GctCunent(); 

} 

inline  Selection*  PictSclcction :;Fi is t()  { 
return  (Selection*)  Picture; :Krst(); 

} 


inline  Selection*  PictS election: :LastO  { 
return  (Selection*)  Picturc:i.ast(); 

} 

inline  Selection*  PictSclcction ::Next()  { 
return  (Selection*)  Picturc:d*^cxtO; 


inline  Selection*  PictSclcction:  J^rcvO  { 
return  (Selection*)  Picture::PrcvO; 

) 

inline  Selection*  PictSclection :JFirstSelectionContaining(PointObj&  p)  { 
return  (Selection*)  Picture:  JirstGraphicContaining(p); 

) 

inline  Selection*  PictSclcction  ::LastSclectionContaming(PointObj&  p)  | 
return  (Selection*)  Picture:  J^stGraphicContaining(p); 

1 

inline  int  PictSclection::SelectionsContaimng(PointObj&  p,  Sclection**&  ss)  { 
Graphic**  gg  *  nil; 

int  num  =  Picture: :GraphicsContaining(p,  gg); 
ss  «=  (Selection**)  gg; 
return  num; 

1 


inline  Selection*  PictSelection:J^irstSclcctionInteisecting(BoxObj&  b)  { 
return  (Selection*)  Picture::FirstGraphicIntersccting(b); 

I 

mime  Selection*  PictSclcction:JLastSclcctionIntcrsccting(BoxObj&  b)  i 
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return  (Selection*)  Picture:iastGraphicIntersccting(b); 

) 

inline  int  PictSeIection::SelectionsIntersecting(BoxObj&  b,  Selection**&  ss)  { 
Graphic**  gg  =  nil; 

int  num  *=  Picture: :GraphicsIntcrsecting(b,  gg); 
ss  (Selection**)  gg; 
return  num; 

} 


inline  Selection*  PictSclcction:  J^irstSc!ectionWithin(BoxObj&  b)  { 
return  (Selection*)  Picture;:FirstGraphicWithin(b); 

) 


inline  Selection*  PictSelection::LastSelectionWithm(BoxObj&  b)  { 
return  (Selection*)  Picture::LastGraphicWithin(b); 

} 

inline  int  PictSelection::SelectionsWithin(BoxObj&  b»  Selection**  &  ss)  { 

Graphic**  ggs=nil; 

int  num  Rcturc::GraphicsWithin(b,  gg); 
ss  s=  (Selection**)  gg; 
return  num; 

I 

#cndif 

slpictc 

#include  "ipainth" 

#include  "istringJi" 

#include  *'listifont-h" 

#include  "slellipsesJi'' 

#include  "sllincsdi" 

#include  "slpicUi" 

#include  "s]polygons.h” 

#include  "slsplincs.h" 

#inc)ude  "sltcxth" 

#inciude  <InterViewsAransformcr.h> 

#include  <stream.h> 

//  P^ctSelection  initializes  its  graphic  state. 

PictSclcction:  J*ictSeIection  (Graphic*  gs) :  (gs)  { 
valid  =  true; 

I 

//  PictSclection  knows  it’s  the  outermost  PictSclcction  because  it  was 
//  called  with  a  HUE*  pointer,  so  it  must  read  a  version  number,  skip 
//  over  its  name,  read  its  graphic  state  and  children,  and  scale 
//  itself  back  to  screen  coordinates  when  it's  finished. 

PictSclcction ::PictSclcction  (HLE*  stream.  State*  state) :  Selcction((Graphic*)  nil)  { 
int  fd  =  filcno(strcam); 
istream  from(fd); 

ReadVersion(from); 

ReadGridSpacing(from,  state); 

if  (versionnumber  <  NONREDUNDANTVERSION)  { 

Skip(from); 

} 

RcadPictGS(from,  state); 

ReadChildren(from,  state); 

ScalcToScreenCoo  rds() ; 

Transformer*  t  *  GctTransfoimerO; 

if  (versionnumber  <  NONROTATEDVERSION  &&  t  !*  nil  &&  t->Rotatcd90())  { 
*t  =  id«itity; 

Translatc(0.0,  -8.5*inchcs); 

Rotate(90.0, 0.0, 0.0); 

Pictu  re :  J*ropagate(); 

I 

valid  =  from.good(); 

I 


//  Copy  returns  a  copy  of  the  PictSclcction. 
Graphic*  PictSelcction::Copy  ()  | 
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Selection*  copy  =  new  PictSelcction(this); 
for  (FirstO;  lAtEndQ;  NextQ)  { 
copy->Appcnd(GctCu  rrent()->Copy  0) ; 

I 

return  copy; 

) 


//  HasChildrcn  returns  true  so  Idraw  can  ungroup  this  Picture. 

boolean  PictSclectioniJlasChildren  0  I 
return  Picture:  JIasChildrcnO; 

) 


//  Propagate  must  preserve  the  PictSelection's  transformation  matrix 
//  if  it  has  any. 

void  PictSelection:  J’ropagatc  ()  { 

Transformer*  original  =  GetTransformciO; 
if  {original  l^^nil)  { 
original ->Reference(); 

Pictu  re:  :Prop  agateO ; 

SetTrans  formerforiginal ) ; 

Unref(original); 

}  else  { 

Pictu  re:  iPropagateO ; 

) 

} 


//  WritcRcture  writes  the  picture  and  returns  true  if  the  write 
//  succeeded  or  false  if  some  10  error  occurred.  It  omits  the 
//  Postscript  prologue  and  trailer  if  called  with  verbose  false  to 
//  speed  up  cutting  and  pasting  pictures  between  drawings. 

boolean  PictSeIection::WritcPicture  ( 

FDUE*  stream.  State*  state,  boolean  verbose 

){ 

#if  !defined(_GNUG_J 

//  incompatible  with  g-H-,  but  woiks  around  a  efront  bug 
filebuf  fb(strcam); 
ostream  to(&fb); 

#clse 

int  fd  =  fileno  (stream); 
ostream  to(fd); 

#endif 

WritePicture(to,  state,  verbose); 
return  to.good(); 

} 


//  PictSelection  knows  it’s  not  the  outermost  PictSelection  so  it  only 
//  reads  data  to  initialize  its  graphic  state  and  create  its  children 
if  Selections. 

PictSelection ::F*ictS election  (istream&  from.  State*  state) :  Sclcction((Graphic*)nil)  { 
RcadPictGS(from,  state); 

RcadChildrwiCfrom,  state); 
valid  *  from,good(); 

1 

//  ReadChildren  loops  determining  which  kind  of  Selection  follows  and 
//  creating  it  until  it  reads  "end"  which  means  all  of  the  children 
//  have  been  created. 

void  PictSclcction::ReadChiIdren  (istream&  from.  State*  state)  { 
while  (from.goodO)  { 

Skip(from); 

Selection*  child  «  nil; 
from  »  buf; 

if  (strcmp(buf,  "BSpl")  *=  0)  { 
child  =  new  BSpiineScIcction(from,  state); 

I  else  if  (strcmp(buf,  "Circ")  *=  0)  ( 
child  ■=  newCircleS  election  (from,  state); 

1  else  if  (slrcmpCbuf,  "CBSpl")  *=  0)  { 
child  B  newClosedBSpIineSelection(from,  state); 

1  else  if  (strempfbuf,  "Elli")  **  0)  | 
child  »  ncwEllipscSclection(from,  state); 

I  else  if  {strcmpOxif,  "Line") 0)  { 
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child  =  ncwLineSelection(from,  state); 

}  else  if  (strcmpfbuf,  "MLine")  =  0)  { 
child  =  ncwMultiLineSelection(from,  state); 

}  else  if  (strcmp(buf,  "Piet")  **=  0)  { 
child  =  ncwHctSclcction(frorru  state); 

}  else  if  (strcmp(buf,  "Poly”)  ==  0)  { 
child  =  ncwPoIygonS  election  (from,  state); 

J  else  if  (strcmp(liif,  "Rect")  =  0)  { 
child  =  newRectScIcction(from,  state); 

}  else  if  (strcmp(buf,  ’Text") «  0)  { 
child  =  ncwTcxtSclection(fiom,  state); 

I  else  if  (strcmp(buf,  ”eop")  ^  0)  { 
break; 

}  else  I 

fprintf(stderr,  "unknown  Selection  %s,  skippingV,  buf); 
continue; 

) 

if  (from.goodO)  { 

Append(child); 

)  else  { 
delete  child; 

1 

I 

) 

I  I  WritcPicturc  writes  the  picture’s  data  and  Postscript  code  to  print 
//  it  wrapped  in  Postscript  comments  that  minimally  conform  to  version 
// 1.0  of  Adobe  Systems's  structuring  conventions  for  Postscript.  The 
//  picture  must  remove  itself  from  its  parent  if  it  has  a  parent  to 
//  prevoit  the  parent’s  transformation  from  affecting  the  picture's 
//  calculation  of  its  bounding  box. 

void  PictSclection;: WritcPicturc  (ostrcam&  to,  State*  state,  boolean  verbose)  { 
Picture*  parent  -  (Picture*)  Parent(); 
if  (parnit  !=  nil)  { 
parent->SetCurrent(this); 
parent->Removc(this); 

} 


ScalcToPostscriptCoordsO; 
if  (verbose)  | 

WritcCommcnts(to); 

WritePro  loguc(to); 

WritcVcrsion(to); 

WriteGridSpacing(to,  state); 

WritcDrawing(to); 

WriteTrailcr(to); 

}else( 

WriteVcrsion(to); 

WriteDra  win  g(to); 

1 

ScaleToScrecnCoo  rds() ; 

if  (parent  !s=nil)  { 
paren  t->InsertB  eforeCu  r(this) ; 

) 

I 

//  WriteCommaits  writes  information  about  the  picture  such  as  the 
//  fonts  used  in  it  and  the  smallest  bounding  box  enclosing  it 

void  PictSelectionr.WriteComments  (ostream&  to)  { 
to  «  "%1PS-Adobe^2.0  EPSF-1.2Vn"; 

to  «  "9&%DocumentFonts:”; 

int  linelcn  =  strlcn("9&%DocumentFonts:"); 

const  int  MAXUNELEN  =  256; 

DFontLisi*  fontlist  =  new  EFontList; 

CollcctFonts(fontlist); 

for  (fontlist->First();  !fontiist->AtEnd();  fontlist->Ncxt())  { 
IFont*  font  =  fontlist‘>GctCurO->GctFont(); 
if  (linden  +  strlen(font*>GctPrintFont())  +  2  <=  MAXLINELEN)  { 
to  «  "  "; 

++linclcn; 

)  else  { 

to  « '^1%%+  *'; 
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lineien  »  strlen("%%+  ”); 

} 

to  «  font->GctPrintFontO; 

linden  +=  strlen(font->GetPrintFont()); 

} 

to  «  "Vn"; 
delete  fontlisl; 

to  «  "%%Pagcs:  l\n”; 

Coord  1,  b,  r,  t, 

GetBox(l,  b,  r,  t); 

to  «  "%%BoundingBox:  "  « I  «  "  "  «  b  «  ”  "  «  r  «  "  "  « t «  "\n"; 

to  «  "%%EndComments\n\n'*; 
to  «  "50  diet  beginXnVi"; 

1 

//  WritePrologue  writes  definitions  of  Postscript  procedures  to  draw 
//  Selections.  You  should  not  rename  or  delete  the  "exported" 

//  capitalized  procedures  because  old  drawings  rely  on  them,  but  you 
If  can  rename  or  delete  the  "internal"  uncapitalized  procedures. 

void  PictSelection:: WritePrologue  (ostream&  to)  { 

to  «  "/arrowHcight "  «  ARROWHEIGHT  «  "  defVn"; 

to  «  "/arrowWidth  "  «  ARROWWIDTH  «  "  defvn"; 

to  «  "Alone  null  defVn"; 

to  «  "AiumGraphicParameters  17  defNn"; 

to  «  "/stringLimit  65535  defSnXn"; 

to  «  "/Begin  {\n"; 

to  «  "saveNn"; 

to  «  "numGraphieParameters  diet  b^inVi"; 

to  «  " )  def\n\n"; 

to  «"/End  {\n"; 

to  «  "endSn"; 

to  «  "restoreVn"; 

to  «  " }  defsriVn"; 

to  «  "/SetB  {\n"; 

to  «  "dup  type  AiuUtypc  eq  {Nn"; 

to  «  "popNn"; 

to  «  "false  /brushRightArrow  idefVn"; 
to  «  "false  /brushLeftAirow  idefSn"; 
to  «  "true  /brushNonc  idefSn"; 
to  «  " }  {\n"; 

to  «  "A>rushDashOffsct  idefsn"; 

to  «  "/brushDashArray  idef«"; 

to  «  "0  ne  /bmshRightAirow  idcf\n"; 

to  «  "0  nc  /bmshLeftArrow  idefVn"; 

to  «  "A>rushWidth  idefSn"; 

to  «  "false  /brushNonc  idefVn"; 

to  «  " }  ifelseNn"; 

to  «  " }  def\n\n"; 

to  «  "^etCFg  {Nn"; 

to  «  "/fgblue  idcfNn"; 

to  «  "/fggreen  idcfNn"; 

to  «  "/fgied  idefSn"; 

to  «  " }  dcfNnNn"; 

to  «  "^ctCBg  (Nn"; 

to  «  "/bgblue  idefSn"; 

to  «  "/bggreen  idefNn"; 

to  «  "/bgied  idcfNn"; 

to  «  " }  dcfNnNn"; 

to  «  "^ctF  {Nn"; 

to  «  "AprintSize  idefNn"; 

to  «  "^rintFont  idcfNn"; 

to  «  "  I  dcfNnNn"; 

to  «  "/SetP  {Nn"; 

to  «  "dup  type  ^ulltype  cq  {Nn"; 

to  «  "pop  true  /pattemNonc  idcfNn"; 

to  «"}  {Nn"; 

to  «  "AiattemG  ray  Level  idcfNn"; 
to  «  "pattemGrayLcvel  -1  cq  {Nn"; 
to  «  "AiattcmString  idcNi"; 
to  «  "  I  ifNn"; 

to  «  "false  A>attemNone  idcfNn"; 
to  «"}  ifclscNn"; 
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to  «  " )  defNnXn"; 
to  «  "/BSpl  {\n*'; 
to  «  "0  bcginSn"; 
to  « *'storexyn\n“; 
to  «  "ncwpath\n"; 
to  «"n  I  gt  (\n"; 

to  «  "0  0  0  0  0  0  1  1  true  subsplincNn"; 
to  «  "n  2  gt  {\n'*; 

to  «  "0  0  0  0  1  12  2  false  subsplineNn'*; 
to  «"1  1  n  3  sub  {\n*'; 
to  «  "A  exch  defVn”; 

to  « *'i  1  sub  dup  i  dup  i  1  add  dup  i  2  add  dup  false  subsplineNn"; 
to  «  " }  foiNn"; 

to  «  "n  3  sub  dup  n  2  sub  dup  n  1  sub  dup  2  copy  false  subsplineNn"; 
to  «  " }  ifVn"; 

to  «  "n  2  sub  dup  n  1  sub  dup  2  copy  2  copy  false  subsplineNn"; 

to  «  "pattemNone  not  brushLeftArrow  not  brushRightAirow  not  and  and  {  "; 

to  «  "ifill  }  ifNn"; 

to  «  "bnishNone  not  {  istroke  )  ifNn"; 
to  «  "0  0  1  1  leftarrowNn"; 
to  «  "n  2  sub  dup  n  1  sub  dup  rightarrowNn"; 
to  «  "  I  ifNn"; 
to  «  "endVn"; 

to  «  " }  dup  0  4  diet  put  defNnNn"; 

to  «  "^irc  (Nn"; 

to  «  "newpathNn"; 

to  «  "0  360  arcNn"; 

to  «  "pattemNone  not  {  ifill  )  ifNn"; 

to  «  "brushNone  not  {  istroke  }  ifNn"; 

to  «  " }  defNnNn"; 

to  «  "A^BSpl  {Nn"; 

to  «  "0  beginNn"; 

to  «  "dup  2  gt  (Nn"; 

to  «  "storexynNn"; 

to  «  "newpathNn"; 

to  «  "n  1  sub  dup  0  0  1  1  2  2  true  subsplineNn"; 
to  «"1  1  n  3sub  (Nn"; 
to  «  exch  defNn"; 

to  «  "i  1  sub  dup  i  dup  i  1  add  dup  i  2  add  dup  false  subsplineNn"; 
to  «  " }  foiNn"; 

to  «  "n  3  sub  dup  n  2  sub  dup  n  1  sub  dup  0  0  false  subsplineNn"; 

to  «  "n  2  sub  dup  n  1  sub  dup  0  011  false  subsplineJNn"; 

to  «  "pattemNone  not  {  ifill  |  ifNn"; 

to  «  "bnishNone  not  (  istroke  }  ifNn"; 

to«"}  {Nn"; 

to  «  "PolyNn"; 

to  «  " }  ifelseNn"; 

to  «  "endNn"; 

to  «  "  I  dup  0  4  diet  put  defNnNn"; 

to  «  "^lli  {Nn"; 

to  «  "0  beginNn"; 

to  «  "newpathNn"; 

to  «  "4  2  roIlNn"; 

to  «  "translatcNn"; 

to  «  "scalcNn"; 

to  «  "0  0  1  0  360  arcNn"; 

to  «  "pattemNone  not  {  ifill  |  ifNn"; 

to  «  "bnishNone  not  {  istroke  }  i^n"; 

to  «  "endNn"; 

to  «  "  1  dup  0  1  diet  put  defNnNn"; 

to  «  "^ine  {Nn"; 

to  «  "0  beginNn"; 

to  «  "2  storexynNn"; 

to  «  "newpathNn"; 

to  «  "x  0  get  y  0  get  movetoNn"; 

to  «  "x  1  get  y  1  get  linetoNn"; 

to  «  "bnishNone  not  {  istroke  }  ifNn"; 

to  «  "0  0  1  1  leftarrowNn"; 

to  «  "0  0  1  1  rightarrowNn"; 

to  «  "endNn"; 

to  «  "  1  dup  0  4  diet  put  defNnNn"; 

to  «  "/MLine  {Nn"; 

to  «  "0  beginNn"; 

to  «  "storexynNn"; 

to  «  "newpathNn"; 

to  « "n  1  gt  |Nn"; 
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to  «  "x  0  get  y  0  get  movetoNn”; 
to  «”1  1  n  1  sub  {\n"; 
to  « **f\  cxch  dcfSn"; 
to  «  "x  i  get  y  i  get  linetoNn"; 
to  «  " }  fol^n"; 

to  « ’'pattcmNone  not  brushLcftArrow  not  bnishRightArrow  not  and  and  { 
to  «  "ifill  }  ifVn"; 

to  «  "bnishNone  not  { istrokc  }  if\n"; 
to  «  "0  0  1  1  leftarrowNn"; 
to  «  "n  2  sub  dup  n  1  sub  dup  rightarrowV; 
to  «  "}  ifsn"; 
to  « ‘’cndSn”; 

to  «  " )  dup  0  4  diet  put  dcfNnNn"; 

to  «  "/Poly  |Nn"; 

to  «  "3  1  rollNn"; 

to  «  "newpathNn"; 

to  «  "movetoNn"; 

to  «"-l  adcINn"; 

to«"{  lincto  }  rcpcatNn"; 

to  «  "closcpathNn"; 

to  «  "pattemNone  not  {  ifill  }  ifSn"; 

to  «  "bnishNone  not  { istrokc  )  ifVn"; 

to  «  " }  dcfNriNn"; 

to  «  "/Rcct  {Nn"; 

to  «  "0  bcginNn"; 

to  «  "A  cxch  dcfNn"; 

to  «  "/r  cxch  dcfNn"; 

to  «  "/b  cxch  dcfNn"; 

to  «  "/I  cxch  dcfNn"; 

to  «  "newpathNn"; 

to  «  "I  b  movetoNn"; 

to  «  "1 1  linctoNn"; 

to  «  "r  l  linctoNn"; 

to  «  "r  b  linctoNn"; 

to  «  "closcpathNn"; 

to  «  "pattemNone  not  |  ifill  }  ifNn"; 

to  «  "bnishNone  not  {  istrokc  }  ifNn"; 

to  «  "aidsn"; 

to  «  " }  dup  0  4  diet  put  defNnNn"; 
to  «  "/Text  (Nn"; 
to  «  "ishowNn"; 
to  «  " }  defSriNn"; 
to  «  "Adcf  {Nn"; 

to  «  "dup  where  I  pop  pop  pop  }  {  cxch  def  |  ifelscNn"; 
to  «  "  I  defNnNn"; 
to  «  "Afill  {Nn"; 
to  «  "0  bcginNn"; 
to  «  "gsavcNn"; 

to  «  "pattcmGrayLcvel  -1  ne  {Nn"; 

to  «  "fgrcd  bgred  fgred  sub  pattcmGrayLcvel  mul  addSn"; 

to  «  "fggreen  bggreen  fggreen  sub  pattcmGrayLcvel  mul  addNn"; 

to  «  "fgbluc  bgbluc  fgbluc  sub  pattcmGrayLcvel  mul  add  setrgbcoloiNn"; 

to  «  "cofillNn"; 

to  «")  {Nn"; 

to  «  "cocIipNn"; 

to  «  "originalCTM  sctmatrixNn"; 

to  «  "pathbbox  A  cxch  def  /r  cxch  def  /b  cxch  def  A  cxch  dcfNn"; 

to  «  "/w  r  1  sub  ceiling  evi  dcfNn"; 

to  «  "/h  t  b  sub  ceiling  evi  dcfNn"; 

to  «  "AmagcBytcWidth  w  8  div  ceiling  evi  defNn"; 

to  «  "AmagcHeight  h  defNn"; 

to  «  "bgred  bggreen  bgbluc  setrgbcoloiNn"; 

to  «  "cofillNn"; 

to  «  "fgrcd  fggreen  fgbluc  setrgbcoloiNn"; 
to  «  "w  0  gt  h  0  gt  and  {Nn"; 
to  «  "1  b  translate  w  h  scalcNn"; 

to  «  "w  h  tnie  [w  0  0  h  neg  0  h]  {  pattemproc  { imagemaskNn"; 
to  «  " )  ifNn"; 
to  «  "  I  ifclscNn"; 
to  «  "grcstoicNn"; 
to  «  "endVn"; 

to  «  " )  dup  0  8  diet  put  defSnNn"; 
to  «  "Astrokc  |Nn"; 
to  «  "gsavcNn"; 

to  «  "brushDash Offset  -1  cq  {Nn"; 
to  «  "[]  0  setdashNn"; 
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to  «  "1  sctgrayNn'*; 
to  «  "}  {V; 

to  «  "brushDashArray  brashDashOffset  setdashNn"; 

to  «  "fgred  fggrecn  fgblue  sctrgbcoloAn"; 

to  « ** }  ifelscNn"; 

to  «  "brush Wdth  setlinewidthV; 

to  «  "originalCrM  sctmatrixNn"; 

to  «  "strokcV; 

to  «  "grestorcNn"; 

to  «  " }  dcfVn\n"; 

to  «  "Ashow  {\n"; 

to  «  "0  bcginNn"; 

to  «  "gsavcNn"; 

to  « "fgred  fggrecn  fgblue  setrgbcoloI^n'’; 

to  «  "/fontDict  printFont  findfont  printSizc  scalcfont  dup  sctfont  dcNi"; 
to  «  "/descender  fontDict  begin  0  [FontBBox]  1  get  FontMatrix  end\n"; 
to  «  "transform  exch  pop  defVn"; 

to  «  "/vertofTset  0  descender  sub  printSize  sub  printFont  /Courier  neSn"; 

to  «  "printFont  /Courier-Bold  ne  and  {  1  add  }  if  def  {\n"; 

to  «  "0  vertofTset  mo  veto  showNn"; 

to  «  "/vertoffset  vcitoffset  printSize  sub  defVn"; 

to  «  " }  forallNn"; 

to  «  "grestoreNn"; 

to  «  "endSn"; 

to  «  " }  dup  0  3  diet  put  defsnVi"; 
to  «  "/pattemproc  {\n"; 
to  «  "0  bcginNn"; 

to  «  "/pattemByteLength  pattemString  length  defvn"; 

to  «  "^attcmHcight  pattemByteLength  8  mul  sqrt  evi  dcf\n"; 

to  «  "^attemWidth  pattemHcight  defVn"; 

to  «  "^attemByteWidth  pattemWidth  8  idiv  defVn"; 

to  «  "^nageByteMaxLength  imagcBytcWidth  imageHeight  muIVn"; 

to  «  "stringLimit  pattemByteWidth  sub  min  defVn"; 

to  «  "rimageMaxHcight  imageByteMaxLength  imagcByteWidth  idiv 

to  «  "pattemHeight  idivNn"; 

to  «  "pattemHcight  mul  pattemHcight  max  defSn"; 

to  «  "rimagcHci^t  imageHeight  imagcMaxHcight  sub  storeNn"; 

to  «  "rimageString  imagcByteWidth  imagcMaxHei^t  mul  pattemByteWidth  " 

to  «  "add  string  dcfNn"; 

to  «  "0  1  imagcMaxHcight  1  sub  (\n"; 

to  «  "/y  exch  dcfVn"; 

to  «  "^attemRow  y  pattemByteWidth  mul  pattemByteLength  mod  defVn"; 
to  «  "^attemRowString  pattemString  pattemRow  pattemByteWidth 
to  «  "getintcrval  defVn"; 

to  «  "AmagcRow  y  imagcByteWidth  mul  defVn"; 
to  «  "0  pattemByteWidth  imageByteWidth  1  sub  {Vn"; 
to  «  "/x  exch  defVn"; 

to  «  "imageString  imagcRow  x  add  pattemRowString  putintervalVn"; 
to  «  "  I  fotVn"; 
to  «  "  1  foiVn"; 
to  «  "imageStringVn"; 
to  «  "endVn"; 

to  «  " }  dup  012  diet  put  defVnVn"; 
to  «  "Anin  (Vn"; 

to  «  "dup  3  2  roll  dup  4  3  roll  It  {  exch  }  if  popVn"; 
to  «  " }  defVnNn"; 
to  «"/max  |\n"; 

to  «  "dup  3  2  roll  dup  4  3  roll  gt  {  exch  }  if  popNn"; 
to  «  " }  dcfSnVn"; 
to  «  "/arrowhead  {Vn"; 
to  «  "0  beginVn"; 

to  «  "transform  originalCTM  itransformVn"; 

to  «  "/taily  exch  dcfvn"; 

to  «  "/tailx  exch  dcfVn"; 

to  «  "transform  originalCTM  itransfonnVn"; 

to  «  "Aipy  exch  defVn"; 

to  «  "/tipx  exch  dcfVn"; 

to  «  "/dy  tipy  taily  sub  dcfVn"; 

to  «  "/dx  tipx  tailx  sub  dcfVn"; 

to  «  "/angle  dx  0  nc  dy  0  nc  or  {  dy  dx  atan  }  {  90  }  ifclsc  dcfvn"; 
to  «  "gsaveVn"; 

to  «  "originalCTM  sctmatrixNn"; 
to  «  "tipx  tipy  translatcNn"; 
to  «  "angle  rotateVn"; 
to  «  "ncwpathVn"; 
to  «  "0  0  movetoVn"; 
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to  «  "arrowHeight  arrowWidth  2  div  linctoNn'*; 

to  «  "arrowHeight  arrowWidth  2  div  neg  linetoNn"; 

to  «  "closepathNn"; 
to  «  "pattcmNone  not  {\n"; 
to  «  "originalCTM  sctmatrixNn"; 

to  «  "/padtip  arrowHci^t  2  exp  0.25  arrowWidth  2  exp  mul  add  sqrt 

to  «  "brush Width  mul\n"; 

to  «  "arrowWidth  div  dcfXn"; 

to  «  "^adtail  brush  Width  2  div  def\n"; 

to  «  "tipx  tipy  transIatcNn"; 

to  «  "angle  rotateXn"; 

to  «  "padtip  0  translateXn"; 

to  «  "arrowHeight  padtip  add  padtail  add  arrowHeight  div  dup  scaleNn"; 

to  «  "arrowheadpathXn"; 

to  «  "ifilINn"; 

to  «  " }  if\n"; 

to  «  "brushNone  not  {\n"; 

to  «  "originalCTM  sctmatrixNn"; 

to  «  "tipx  tipy  translatcNn"; 

to  «  "angle  rotatcNn"; 

to  «  "arrowheadpathNn"; 

to  «  "istrokcNn"; 

to  «  "  I 

to  «  "grestoreNn"; 
to  «  "endVn"; 

to  «  " )  dup  0  9  diet  put  dcfVnNn"; 
to  «  "/arrowheadpath  (Nn"; 
to  «  "ncwpathVi"; 
to  «  "0  0  movetoNn"; 

to  «  "arrowHeight  neg  arrowWidth  2  div  linetoNn"; 

to  «  "arrowHeight  neg  arrowWidth  2  div  neg  linrtoNn"; 

to  «  "closcpathNn"; 

to  «  ")  dcfNnNn"; 

to  «  "/Icftarrow  {Nn"; 

to  «  "0  bcginNn"; 

to  «  "y  cxch  get  Aaily  cxch  dcfVn"; 

to  «  "x  exch  get  Aailx  cxch  dcf\n"; 

to  «  "y  cxch  get  /tipy  cxch  def^n"; 

to  «  "x  exch  get  /tipx  cxch  dcfNn"; 

to  «  "brushLcftArrow  {  tipx  tipy  tailx  taily  arrowhead  }  ifNn"; 
to  «"end\n"; 

to  «  "  1  dup  0  4  diet  put  defNnNn"; 
to  «  "/rightarrow  (Nn"; 
to  «  "0  bcginNn"; 
to  «  "y  cxch  get  /tipy  cxch  defNn"; 
to  «  "x  exch  get  /tipx  exch  dcfNn"; 
to  «  "y  cxch  get  /taily  cxch  dcfVn"; 
to  «  "x  cxch  get  /tailx  cxch  dcfNn"; 

to  «  "brushRightArrow  {  tipx  tipy  tailx  taily  arrowhead  }  ifNn"; 
to  «  "cndNn"; 

to  «  " }  dup  0  4  diet  put  dcfNnNn"; 

to  «  "/midpoint  (Nn"; 

to  «  "0  bcginNn"; 

to  «  "/yl  cxch  dcfNn"; 

to  «"^1  cxch  dcfNn"; 

to  «  "/yO  cxch  dcfNn"; 

to  «  "/xO  cxch  dcfNn"; 

to  «  "xO  xl  add  2  divNn"; 

to  «  "yO  yl  add  2  divNn"; 

to  «  "oicfsn": 

to  «  " }  dup  0  4  diet  put  dcfNnNn"; 

to  «  "Ahirdpoint  {Nn"; 

to  «  "0  bcginNn"; 

to  «  "^1  cxch  dcfNn"; 

to  «  "A1  exch  dcfNn"; 

to  «  "/yO  cxch  dcfNn"; 

to  « *'/x0  cxch  dcfNn"; 

to  «  "xO  2  mul  xl  add  3  di\Nn"; 

to  «  "yO  2  mul  yl  add  3  divNn"; 

to  «  "cndNn"; 

to  «  " }  dup  0  4  diet  put  dcfNnNn"; 
to  «  "^ubspline  {Nn"; 
to  «  "0  bcginNn"; 
to  «  "AnovctoNceded  exch  dcfNn"; 
to  «  "y  exch  gel  /y3  cxdi  dcfNn"; 
to  «  "x  cxch  get  /x3  cxch  dcfNn"; 
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to  «  "y  exch  get  /y2  exrfi  defSn"; 
to  «  "x  exch  get  /x2  excii  defNn"; 
to  « **y  exch  get  /yl  exch  defvn"; 
to  «  "x  exch  get  /xl  cxdi  defNn"; 
to  «  "y  exch  get  /yO  exch  defNn"; 
to  «  "x  exch  get  /xO  exch  defNn"; 
to  « "xl  yl  x2  y2  thirdpoiniNn"; 
to  «  "/ply  exch  defNn"; 
to  «  "/plx  exch  defNn"; 
to  «  "x2  y2  xl  yl  thirdpointNn"; 
to  «  "^2y  exch  defNn"; 
to  «  "^2x  exch  defNn"; 
to  «  "xl  yl  xO  yO  thirdpointNn"; 
to  «  "plx  ply  midpointNn"; 
to  «  "/pOy  exch  defNn"; 
to  «  "^Ox  exch  defNn"; 
to  «  "x2  y2  x3  y3  thirdpointNn"; 
to  «  "p2x  p2y  midpointfyn"; 
to  «  "^3y  exch  defNn"; 
to  «  "^3x  exch  defNn"; 

to  «  "movetoNeedcd  {  pOx  pOy  moveto  }  if\n"; 
to  «  "plx  ply  p2x  p2y  p3x  p3y  curvetoNn"; 
to  «  "cndNn"; 

to  «  " }  dup  0  1 7  diet  put  dcfNnNn"; 

to  «  "/storexyn  {Nn"; 

to  «  "M  exch  defNn"; 

to  «  "/y  n  array  defNn"; 

to  «  "/x  n  array  defNn"; 

to «"n  1  sub-1  0  {Nn"; 

to  «  "H  exch  defNn"; 

to  «  "y  i  3  2  roll  putNn"; 

to  «  "x  i  3  2  roll  putNn"; 

to  «  " )  foiNn"; 

to  «  " }  dcfNnNn"; 

to  «  "%%EndPrologNnNn"; 

) 

//  WritcDrawing  writes  code  to  store  the  picture's  transformation 
//  matrix  in  a  Postscript  variable  and  code  to  draw  the  picture. 

void  PictSclection::WriteDrawing  (ostream&  to)  { 
to  «  "NnNn%95>Page:  1  INnNn"; 
to  «  "BeginNn"; 

WritcPictGS(to); 

to  «  "/originalCTM  matrix  currentmatrix  defNnNn"; 

for  (FirstO;  lAtEndQ;  NextQ)  { 

Selection*  s  =  GctCurrent(); 
s->WriteData(to); 

} 


to  «  "End  "  «  startdata  «  "  copNnNn"; 
to  « "showpageNnNn"; 

} 

//  WritcData  writes  the  PictSclection's  data  and  its  children 
//  Selections'  data  with  Postscript  code  to  draw  them. 

void  PictSclcction::WriteData  (ostream&  to)  { 
to  «  "Begin  "  «  startdata  «  "  PictNn"; 
WritcPictGS(to); 
to  « 'V"; 

for  (FirstO;  1  AtEndQ;  NextO)  ( 

Selection*  s  =  GetCurrcnt(); 
s->WriteData(to); 

) 


to  «  "End  "  «  startdata  «  "  copNnNn"; 

} 


//  WritcTrailcr  writes  clean  code. 

void  PictSclcction::WritcTrailcr  (ostrcam&  to)  { 
to  «  "%%TrailciNnNn"; 
to  «  "endSn"; 
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} 

//  ScaleToPostscriptCoofds  scales  the  picture  to  Postscript 
//  coordinates  if  screen  and  Postscript  inches  are  different. 

void  PictSclcction::ScalcToPostscriptCoords  ()  { 
const  double  postscriptinch  =  72.; 

if  (inch  !=  postscriptinch)  { 
double  topostscript  =  postscriptinch  /  inch; 
Scale(topostscript,  topostscript); 

} 

} 


//  ScaleToScrccnCoords  scales  the  picture  back  to  screen  coordinates 
//  if  screen  and  Postscript  inches  are  different 

void  PictSclection::ScaIeToScrcenCoords  0  { 
const  double  postscriptinch  =  72.; 

if  (inch  !=  postscriptinch)  { 
double  toscrecn  =  inch  /  postscriptinch; 

Scale(toscrcen,  toscrecn); 

I 

} 


//  CollectFonts  adds  its  font,  if  it  has  one,  to  the  list  without 
//  checking  if  the  PictSelection  contains  any  TextSelections.  If  it 
//  doesn't  have  a  font,  it  collects  its  children  TextS election's 
//  fonts. 

void  PictSelection: :CollcctFonts  (IFontList*  fontlist)  { 
if  (GetFontO  !=nil)  { 

Mergc((IFont*)  GetFontO,  fontlist); 

)  else  { 

for  (HrstO;  !AtEnd();  NextQ)  I 
Selection*  s  =  GetCurrentQ; 
if  (s->HasChildren())  { 

((PictS  cl  ecti  on* )  s)-  >CollectFonts(f ontlist); 

)  else  if  (s->IsA(TEXTSELECnON))  I 
Mergc((IFont*)  s->GctFont(),  fontlist); 

I 

} 

} 


//  Merge  merges  the  print  font  with  the  list  of  all  print  fonts  unless 
//  the  list  already  has  it 

void  PictSelection::Mergc  (IFont*  font  IFontList*  fontlist)  { 
boolean  found  =  false; 
if  (font  nil)  { 
found  =  true; 

}  else  if  (fontlist->Find(font))  { 
found  =  true; 

I  else  I 

for  (fontiist“>First();  !fontlist->AtEnd();  fontIist‘>Ncxt())  { 

IFont*  emp  =  fontlist->GctCur()->GetFont(); 
if  (strcmp(font->GctPrintFontO,  cmp->GctPrintFont())  =  0)  { 
found  « true; 
break; 


I 

if  (! found)  { 

fontlist'>Appcnd(ncw  IFontNode(font)); 


int  PictSelection: JnndIndex(SeIcction*  s)  | 
int  index  =  0; 

for(FirstO;  !AtEnd();  NextQ,  -f+index)  { 
if  (GetCurrentO  =s  s)  { 
return  index; 

I 

I 


288 


return  -1; 

} 


Selection*  PictSclection::GetSelection(int  index)  { 
int  counter  =  0; 

for(Firet();  lAtEndQ;  NextQ)  { 
if  (counter  ~  index)  ( 
return  GetCurrentO; 

I 

■f+counter, 

I 

return  nil; 

} 


sipolygons.h 


#ifadef  slpolygons_h 
#dcfine  slpolygons_h 

#includc  "selection.h" 

//  A  RectSelection  draws  a  rectangle  with  an  outline  and  a  filled 
//  interior. 

class  RectSelection  :  public  NPtScIcction  { 
public: 

RectSclection(Coord»  Coord,  Coord,  Coord,  Graphic*  =  nil); 
RectSelcction(istrcam&,  State*); 

Graphic*  Copy(); 

void  GetOriginal2(Coord&,  Coord&,  Coord&,  Coord&); 
int  GetOriginal  (const  Coord*&,  const  Coord*&); 

protected: 

void  WritcData(ostrcam&); 

RubberVcrtex*  CreateRubbcrVcrtex(Coord*,  Coord*,  int,  int); 
Selection*  CreatcRcshapedCopy(Coord*,  Coord*,  int); 


); 


//  A  PoIygonSelection  draws  a  polygon  with  an  outline  and  a  filled 
//  interior. 

class  PoIygonSelection  :  public  NPtSelection  | 
public: 

PoIygonSelection(Oord*,  (^ord*,  int.  Graphic*  ■=  nil); 
Polygons clection(istrcani&.  State*); 

Graphic*  Copy(); 

int  GetOriginal  (const  Coord*&,  const  Coord *&); 
protected: 

RubberVeitcx*  CrcatcRubbcrVcrtex(Coord*,  Coord*,  int,  int); 
Selection*  CreatcRcshapedCopy(Coord*,  Coord*,  int); 


#cndif 


sipolygons.c 


#include  ’’ipolygonsii" 
#include  "rubbandsJi" 
#include  "slpolygons.h" 
#include  "dfdcl  asses  Ji" 
#include  <stream,h> 


It  RectSelection  creates  the  rectangle's  filled  interior  and  outline. 
RectSelection:: RectSelection  (Coord  1,  Coord  b,  (Iloord  r.  Coord  t.  Graphic*  gs) 

:(gs)  { 
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myname  =  "Rect"; 

Append  (new  IRURectCl,  b,  r»  t)); 

Appcnd(new  RectO,  b,  r,  t)); 

SctClassIdCTERMlNATOR); 

} 

//  RectSelection  reads  data  to  initialize  its  graphic  state  and  create 
//  its  filled  interior  and  outline. 

RectSelection::RectSelection  (istream&  from,  State*  state) :  (nil)  { 
myname  =  "Rect"; 

ReadGS(from,  state); 

Skip  (from); 

Coord  1,  b,  r,  t; 

from  » 1 »  b  »  r  » t; 

App«\d(ncw  IRlIRcctO,  b,  r,  t)); 

Append(new  Rect(l,  b,  r,  t)); 

SetClassId(TERMINATOR); 

} 

//  Copy  returns  a  copy  of  the  RectSelection. 

Graphic*  RectSelection ::Copy  0  I 
Coord  I,  b,  r,  t; 

GctOriginaI2(l,  b,  r,  t); 

return  new  RcctS election (1,  b,  r,  t,  this); 

) 

//  GetOriginal2  returns  the  two  comers  that  were  passed  to  the 
//  RectSclection’s  constructor. 

void  RectSelection;  :GetOriginal2  (Coord&  1,  Coord  &  b,  Coord  &  r.  Coord  &  t)  { 
((Rect*)  Last())->GctOriginal(l,  b,  r,  t); 

} 


//  GetOriginal  returns  the  two  comers  that  were  passed  to  the 
//  RectSelection 's  constractor  plus  the  other  two  opposite  comers. 

int  RectSelection: :GetOriginaI  (const  Coord* &  x,  const  Coord*&  y)  { 
static  Coord  sx[4],  sy[4]; 

GctOrigmal2(sx[0],  sy[0],  sx[2],  sy[2]); 

sx[l]  =  sx[0]; 

sy[l)=sy[2]; 

sx[3]  =  sx[2]; 

sy[3]-sy[0]; 

X  sx; 
y^'sy; 
return  4; 

} 

//  WritcData  writes  the  RectSelection’s  data  and  Postscript  code  to 
//  draw  it, 

void  RectSelection::WritcData  (ostrcam&to)  { 

Coord  1,  b,  r,  t; 

GctOriginaI2(I,  b,  r,  t); 

to  «  "Begin  "  «  startdata  «  "  Rcct\n"; 

WritcGS(to); 

to  «  startdata  «  "Vn"; 

to  « 1 «  "  "  «  b  «  "  "  «  r  <<  "  "  « t «  "  RectNn"; 
to  «  "EndVnVn"; 

1 


//  CreateRubberVertex  creates  and  returns  the  rij^t  kind  of 
//  RubberVertex  to  r^resentthe  RectS election's  shape. 

RubberVertex*  RcctSelection::CrcatcRubberVertcx  (Coord*  x.  Coord*  y, 
ini  n,  int  mbpt)  { 

return  new  RubbcrPolygon(nil,  nil,  x,  y,  n,  mbpt); 

) 

//  CreatcRcshapcdCopy  creates  and  returns  a  reshaped  copy  of  itself 
//  using  the  passed  points  and  its  graphic  state.  It  returns  a 
//  Polygon  Select]  on  because  the  points  may  not  shape  a  rect  any  more. 

Selection*  RectSelectionrrCreateReshapedCopy  (Coord*  x.  Coord*  y,  int  n)  { 
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return  new  PolygonSelcction(x,  y,  n,  this); 

} 


//  PolygonSelection  creates  the  polygon's  filled  interior  and  outline. 
PolygonSelectionrJ’olygonSelection  (Coord*  x,  Coord*  y,  intn,  Graphic*  gs) 

:  (gs)  I 

mynamc  =  "Poly"; 

Appcnd(ncw  IRIlPolygon(x,  y,  n)); 

Append(new  Polygon(x,  y,  n)); 

} 

//  PolygonSelection  reads  data  to  initialize  its  graphic  state  and 
//  create  its  filled  interior  and  outline. 

PolygonSelection ::PolygonSclection  (istream&  from.  State*  state) :  (nil)  { 
myname  =  "Poly"; 

RcadGS(from,  state); 

Coord*  x; 

Coord*  y; 
int  n; 

ReadPoints(from,  x,  y,  n); 

Append(new  IFillPolygon(x,  y,  n)); 

Appcnd(new  Polygon(x,  y,  n)); 

I 

//  Copy  returns  a  copy  of  the  PolygonSelection. 

Graphic*  PolygonSelection  “Copy  Q  { 

Coord*  x; 

Coord*  y; 

int  n  =  GctOriginal(x,  y); 

Graphic*  copy  =  new  PolygonSclection(x,  y,  n,  this); 
return  copy; 

) 


//  GctOriginal  returns  the  vertices  that  were  passed  to  the 
//  PolygonSclection's  constructor. 

int  PolygonSelection ::GctOriginal  (const  Coord*&  x,  const  Coord *&  y)  | 
return  ((Polygon*)  LastO)->GetOriginal(x,  y); 

} 

//  CrcatcRubbcrVertcx  creates  and  returns  the  right  kind  of 
//  RubberVertex  to  represent  the  PolygonSelection's  shape. 

RubberVertex*  PolygonSelection  “CrcatcRubbcrVertcx  (Coord*  x.  Coord*  y, 
intn, int rubpt)  ( 

return  new  RubbcrPolygon(nil,  nil,  x,  y,  n,  rubpt); 

1 

//  CrcatcRcshapcdCopy  creates  and  returns  a  reshaped  copy  of  itself 
//  using  the  passed  points  and  its  graphic  state. 

Selection*  PolygonSclcction;:CreatcReshapcdCopy  (Coord*  x.  Coord*  y,  int  n)  ( 
return  new  PolygonSelection (x,  y,  n,  this); 

I 


slsplinesdi 


#ifhdcf  slsplincs_h 
#dcfinc  slsplincs_h 

#include  "sclection.h" 

#inc)ude  "IntcrVicws/dcfs.h" 

class  Edge; 

//  A  BSplincSelection  draws  an  open  B-spline  with  a  filled  interior. 

class  BSplincSelection  :  public  NPtScIcetion  | 
public: 


BSplineSelection(ClassId,  Coord*,  Coord*,  int.  Graphic*  =  nil); 
BSplincSclcction(Coord*,  Coord*,  int.  Graphic*  «  nil); 
BSplincSclcction(istrcam&,  State*); 
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Graphic*  CopyO; 

int  GctOriginal (const  Coord *&,  const  Coord*&); 

Selection*  CrcatcReshapcdCopy(Coord*,  Coord*,  int,  Classid); 

Selection*  CreateReshapedCopy(Coord*,  Coord*,  int); 
boolean  IsASlrcamO; 
void  SetStreamO; 

protected: 

void  Init(Coord*,  Coord*,  int); 

RubbcrVertcx*  CreatcRubberVertex(Coord*,  Coord*,  int,  int); 
void  uncacheChildrcnO; 

void  getExtcnt(float&,  float&,  float&,  float&,  float&.  Graphic*); 
boolean  contains(PointObj&,  Graphic*); 
boolean  intersects(BoxObj&,  Graphic*); 
void  draw(Canvas*,  Graphic*); 

void  drawClippcd  (Canvas*,  Coord,  Cooni,  Coord,  Coord,  Graphic*); 

Graphic*  ifillbspline;//  fills  an  open  B-spIine 
Graphic*  bsplinc;//  draws  an  open  B-spline 
Coord  1x0,  lyO,  1x1,  lyl;//  stores  endpoints  of  left  arrowhead 
Coord  rxO,  ryO,  rxl.  ryl;//  stores  endpoints  of  right  arrowhead 
boolean  is_strcam;  //  stores  where  data  flow  is  stream  or  not 
}; 


//  A  aosedBSplincSelection  draws  a  closed  B-splinc  with  a  filled 
//  interior. 

class  QosedBSplineSelection  :  public  NPtSelection  { 
public: 

ClosedBSplineSclection(Coord*,  Coord*,  int,  Graphic*  »  nil); 
ClosedBSplineSclcction(istrcam&,  State*); 

Graphic*  CopyO; 

int  GctOriginal  (const  Cooid*&,  const  Coord  *&); 
protected: 

RubberVertex*  CreatcRubbcrVertcx(Coord*,  Coord*,  int,  int); 
Selection*  CrcatcRcshapcdCopy(Cooid*,  Coord*,  int); 


#cndif 


sisplines.c 

#include  "dfdcl asses h" 

#includc  "isp lines. h" 
tinclude  *'slsplincsJi’' 

#include  <IntcrVicws/njbcurve.h> 

#includc  <IntcrVicws/Std/stream.h> 

//  BSplineSclcction  creates  its  components. 

BSplineSelcction:£SplineSelection  (Classid  classid,  Coord*  x.  Coord*  y, 
int  n,Graphic*  gs) :  (classid,  gs)  { 

Init(x,  y,  n); 

) 

BSplincSelection:£SplincSclcction  (Coord*  x.  Coord*  y,  int  n.  Graphic*  gs) 

:  (gs)  I 

Init(x,  y,  n); 

I 


//  BSplineSclcction  reads  data  to  initialize  its  graphic  state  and 
//  create  its  components. 

BSplineSclcction ;*£SplincScIcction  (istream&  from.  State*  state) 
:  (nil)  { 
bspline  =  nil; 

RcadGS(from.  state); 
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Coord^  x; 

Coord*  y; 
intn; 

RcadPoints(from,  x,  y,  n); 
Init(x,  y,  n); 

} 


//  Copy  returns  a  copy  of  thcBSplineSclcction. 

Graphic*  BSplincSclcction::Copy  0  I 
Coord*  x; 

Coord*  y; 

int  n  =  GctOrigjnal(x,  y); 

Graphic*  copy  *  new  BSplineSclection(x,  y,  n,  this); 
return  copy; 


//  GetOriginal  returns  the  control  points  that  were  passed  to  the 
//  BSplincSelection’s  constructor. 

intBSplineSclection::GctOriginal  (const  Coord*&  x,  const  Coord*&  y)  { 
return  ((BSpline*)  bspline)“>GctOriginaI(x,  y); 

} 

//  Init  creates  the  graphic's  components  and  stores  the  arrowheads’ 

//  endpoints. 

void  BSplineSclcction::Init  (Coord*  x.  Coord*  y»  int  n)  { 
is_stream  =  false; 

myname  =  "BSpl"; 

ifillbspline  =  new  IFillBSpline(x,  y,  n); 
bsplinc  =5  new  BSpline(x,  y,  n); 
lx0  =  x[0]; 
lyO  =  y[0]; 

1x1  =x[l]; 

lyi-yUl; 

rxO  =  x[n-l]; 
ryO  =  y[n-l]; 
rxl  =  x[n-2]; 
ryl  =  y[n-2]; 

} 


//  CrcateRubbcrVcrtcx  creates  and  returns  the  ri^t  kind  of 
//  RubberVertex  to  represent  the  BSplineSelection's  shape. 

RubberVertex*  BSplineSelcction::CrcatcRubbcrVertcx  (Coord*  x,  Coord*  y, 
int  n,  int  rubpt)  { 

return  new  RubbcrSpline(nil,  nil,  x,  y,  n,  rubpt); 


//  CreatcRcshapedCopy  creates  and  returns  a  reshaped  copy  of  itself 
//  using  the  passed  points  and  its  graphic  state. 

Selection*  BSplineSelcction::CreatcReshapcdCopy  (Coord*  x.  Coord*  y,  int  n, 
Classid  cid)  { 

return  new  BSplineSelection(cid,  x,  y,  n,  this); 

) 

Selection*  BSpIineS election "CrealeRcshapedCopy  (Coord*  x.  Coord*  y,  int  n)  { 
return  new  BSpiineSeIection(cid,  x,  y,  n,  this); 

} 


//  uncacheChildrcn  uncaches  the  graphic’s  components'  extents. 

void  BSplineSelection::uncacheChildrcn  ()  { 
if  (bspline  !=f  nil)  { 
uncacheExtentG  raphic(ifi  11  bs  pline) ; 
uncacheExtentG  raphic(bspline); 

} 

} 

//  getExtent  returns  the  graphic’s  extent  including  a  tolerance  for 
//  the  arrowheads. 

void  BSplineScIcction::gctExtcnt  (float&  1,  float&  b,  float&  cx,  float&  cy, 
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float&  tol,  Graphic*  gs)  { 

Extent  c; 

if  (extentCachedO)  { 

getCachedExtcnt(e.lcfU  e.bottom,  e.cx,  e.cy»  e.tol); 

)  else  { 

FullGraphic  gstmp; 

concatGSGraphic(ifillbsplinc,  this,  gs,  &gstmp); 
getExtcntGraphic( 

ifillbspline,  c.lcft,  e.bottom,  e.cx,  c.cy,  e.tol,  &gstmp 

); 

Extent  te; 

concatGSGraphic(bspline,  this,  gs,  &gstmp); 
getExtcntGraphic( 

bspline,  tc.left,  te.bottom,  te.cx,  te.cy,  te.tol,  &gstmp 

); 

e.Mergc(tc); 

cacheExtent(e.left,  e.bottom,  e.cx,  c.cy,  e.tol); 

} 

float  right  ==  2*c.cx  -  e.lcft; 
float  top  2*c.cy  -  e.bottom; 
float  dummyl,  dummy2; 

transformRcct(c.lcft,  e.bottom,  ri^t,  top,  1,  b,  dummyl,  dummy2,  gs); 

transform  (e.cx,  c.cy,  cx,  cy,  gs); 

tol  =  MergeArrowHcadTol (e.tol,  gs); 


//  contains  returns  true  if  the  graphic  contains  the  point 

boolean  BSplineSelcction::contains  (PointObj&  po.  Graphic*  gs)  { 
BoxObj  b; 
gctBox(b,  gs); 
if  (b.Contains(po))  { 

if  (containsGraphic(ifillbsplinc,  po,  gs))  { 
return  true; 

}  else  if  (containsGraphic(bspIine,  po,  gs))  { 
return  true; 

}  else  if  (LcftAcont(lxO,  lyO,  Ixl,  lyl,  po,  gs))  { 
return  true; 

I  else  if  (Right Acont(rxO,  ryO,  rxl,  ryl,  po,  gs))  { 
return  true; 

} 

} 

return  false; 

I 


//  intersects  returns  true  if  the  graphic  intersects  the  box. 

boolean  BSpIincSclcctionrnntcrsccts  (BoxObj&  userb,  Graphic*  g$)  { 
BoxObj  b; 
getBox(b,  gs); 
if  (b.Intersccts  (userb))  { 

if  (intcrscctsGraphic(ifillbspline,  userb,  gs))  { 
return  true; 

}  else  if  (inteisectsGraphic(bspIine,  userb,  gs))  { 
return  true; 

)  else  if  (LcftAints(lxO,  lyO,  1x1,  lyl,  userb,  gs))  { 
return  true; 

I  else  if  (Right Aints(rxO,  ryO,  rxl,  ryl,  userb,  gs))  | 
return  true; 


return  false; 

} 

//  draw  draws  the  graphic. 

void  BSplincSelection::draw  (Canvas*  c.  Graphic*  gs)  { 
drawGraphic(ifll]bspline,  c,  gs); 
drawGraphic(bspline,  c,  gs); 
drawLefLA(lxO,  lyO,  1x1,  lyl,  c,  gs); 
drawRightA(rxO,  ryO,  rxl,  ryl,  c,  gs); 

) 


//  drawClippcd  draws  the  graphic  if  it  intersects  the  clipping  box. 

void  BSplineSelection::drawClipped  (Canvas*  c.  Coord  1,  Coord  b.  Coord  r, 
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Coord  t.  Graphic*  gs)  { 

BoxObj  box; 
gctBox(box,  gs); 

BoxObj  cHpBoxO,  b,  r»  t); 
if  (c!ipBox.Intcrsccts(box))  { 
draw(c,  gs); 

} 


//  QosedBSpIineSelection  creates  the  closed  B-spline’s  filled 
//  interior  and  outline. 

ClosedBSplincSclcction::CloscdBSplineSelection  (Coord*  x,  Coord*  y,int  n. 
Graphic*  gs) :  (gs)  { 
nntyname  =  "CBSpl"; 

Appcnd(new  IFillCIoscdBSplinc(x,  y,  n)); 

Appcnd(ncw  ClosedBSplinc(x,  y,  n)); 

) 


//  ClosedBSplincSclcction  reads  data  to  initialize  its  graphic  state 
//  and  create  the  closed  B-splinc’s  filled  interior  and  outline. 

CloscdBSplineSelection:;ClosedBSplineSelection  (istream&  from,  State*  state) 
:  (nil)  { 

myname  =  "CBSpl"; 

ReadGS(from,  state); 

Coord*  x; 

Coord*  y; 
intn; 

ReadPoints(from,  x,  y,  n); 

Append(new  IFillCloscdBSpline(x,  y,  n)); 

Append  (new  CIoscdBSpline(x,  y,  n)); 

} 


//  Copy  returns  a  copy  of  the  ClosedBSplineSclection. 

Graphic*  ClosedBSplineSclection:  :Copy  ()  { 

Coord*  x; 

Coord*  y; 

int  n  =  GetOriginal(x,  y); 

Graphic*  copy  =  new  ClosedBSplineSelectionfx,  y,  n,  this); 
return  copy; 

1 


//  GetOriginal  returns  the  control  points  that  were  passed  to  the 
//  QoscdBSplincSclcction’s  constructor. 

int  CloscdBSplincSclcction::GctOriginal  (const  Coord*&  x,  const  Coord *&  y)  { 
return  ((CIosedBSpline*)  Last())->GetOriginal(x,  y); 

I 

//  CrcatcRubbcrVcrtcx  creates  and  returns  the  ri^t  kind  of 
//  RubberVertcx  to  represent  the  QoscdBSplineSelection’s  shape. 

RubbcrVcrtcx*  ClosedBSplineSclection:  :CrcatcRubbcrVcrtcx  (Coord*  x,  Coord*  y, 
int  n,  int  rubpt)  | 

return  new  RubbcrClosedSplinc(nil,  nil,  x,  y.  n,  rubpt); 

1 


//  CrcatcRcshapcdCopy  creates  and  returns  a  reshaped  copy  of  itself 
//  using  the  passed  points  and  its  graphic  state. 

Selection*  ClosedB SplineS election ::CreateReshapedCopy  (Coord*  x.  Coord*  y, 
int  n)  I 

return  new  QosedBSpIineSelection (x,  y,  n,  this); 

1 

//  return  whether  spline  is  stream  or  not 

boolean  BSplineSelection :  ds  A  Stream  Q  { 
return  is_stream; 

I 

//  set  value  of  is_stream 
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void  BSplincSelection::SetStream()  { 
is_stream  » true; 

} 


sitexth 

#ifndcf  sltcxt_h 
#dcfijie  sltext_h 

#include  "selection,  h" 

//  Declare  imported  types, 

class  TextBuffer, 

//  A  TextSelection  draws  one  to  several  lines  of  text 

static  const  Classid  TEXTSELECTION  ~  2100; 

class  TextSelection  ;  public  Selection  { 
public: 

Texts  election  (Classid,  const  char*,  int  Graphic*  =  nil); 
TcxtSclcction(const  char*,  int.  Graphic*  =  nil); 
TextSelcction(istream&,  State*); 

-Texts  election  0; 

Graphic*  CopyO; 
boolean  Is  A  (Classid); 

const  char*  GetOriginal(int&); 
boolean  ShapedBy(Coord,  Coord,  float); 

char  *GctStringO; 
char  *GctValidString(); 

boolean  GetDefPositionO; 
void  SetDefPosition (boolean); 

protected: 

void  draw(Canvas*,  Graphic*); 

void  drawClipped(Canvas*,  Coord,  Coord,  Coord,  Coord,  Graphic*); 
void  Readjusts pacing(PFont*); 

void  Init(const  char*,  int); 

const  char*  ReadTextData(istream&,  int&); 

void  WritcData(ostream&); 

const  char*  Hltcifconst  char*,  int); 

boolean  defPosition; 

char*  tbuf;//  stores  the  TextSelection 's  text 
TextBuffer*  text;//  operates  on  the  text 
int  lineHt;//  stores  previous  line  height 


); 


#cndif 

si  text  c 

#include  "dfdcl  asses  .h" 

#inciude  "ipainth" 

#includc  "istringJh" 

#includc  "sltcxLh" 

#include  <InterViews/Graphic/labelJi> 
#include  <IntcrVicws/textbufferJi> 
#include  <bstring.h> 

#inciude  <stream  Ji> 


//  Both  ReadTextData  and  Filter  use  this  big  static  buffer. 

static  const  int  SBUFSIZE  =  10000; 
static  char  sbuflSBUFSIZEJ; 
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//TextSelection  gets  passed  its  graphic  state,  text,  and  type  of  text 

Texts  el  ection::TextSelection  (Classid  classid,  const  char^  orig,  int  len, 
Graphic*  gs) :  (classid,  gs)  { 

Init(orig,  len); 

} 

//TextSelection  gets  passed  its  graphic  state  and  text. 

TextSclcction::TextSelection  (const  char*  orig,  int  Icn,  Graphic*  gs) 

:  (COMMENT,  gs)  { 

Init(orig,  len); 

I 

//  TextSelection  reads  its  graphic  state  and  text  from  a  file. 

Texts  election  “TextSelection  (istrcani&  from.  State*  state) : 

Selection  ((Graphic  ♦)nil)  | 

Rea(frextGS(from,  state); 
int  len; 

const  char*  orig  =  ReadTextData(from,  lai); 
lnit(orig,  len); 

I 

//  Init  copies  the  original  text  and  <9p»ids  Labels  for  each  line  of 
//  text  to  the  TextSelection. 

void  TextSelection: :Init  (const  char*  orig,  int  len)  { 
defPosition  -  trae; 

int  tbufsize  =  max(lcn,  1); 

tbuf  =  new  char{tbufsize]; 

bcopy(orig,  tbuf,  l«i); 

text  =  new  TcxtBuffcr(tbuf,  len,  tbufsize); 

lineHt  =  0; 

int  lines  =  text->HcightO; 
for  (int  i  =  0;  i  <  lines;  ++i)  { 
int  bol  =  tcxt->LineIndcx(i); 
int  eol  =  text->EndOfLine(bol); 

/*  need  this  crock  for  now  because  Labcl(t,  0)  is  buggy  */ 
if  (eol-bol>0){ 

Append(new  Label (text->Text(bol,  col),  col  -  bol)); 

I  else  { 

Appcnd(ncw  Label  C’")); 

) 

} 

RcadjustSpacing(GctFontO) ; 

) 

//  Free  storage  allocated  for  the  text  in  the  TextSelection. 

TextSelection ir-TcxtS election  ()  { 
delete  text; 
delete  tbuf; 

I 

//  Copy  returns  a  copy  of  the  TextSelection. 

Graphic*  TcxtSclection::Copy  Q  { 

return  new  TextSelection(GctQassId(),  tcxt->TcxtO,  tcxt“>Lcn^h(),  this); 

I 

//Is A  returns  true  if  theTcxtSdcction  is  a  TextSelection  so  Editor 
//  can  identify  TcxtSclections  and  edit  them  differently. 

boolean  TextSelection:  JsA  (Gassidid)  { 
return  id  --  LABEL.OP  II  id  =  LABEL.DF  II  id  =  LABEL_SL  II 
id  ==  COMMENT  II  id  ==  MET_OP  II  id  =  LAT.DF; 

I 

//  GctOriginal  returns  a  pointer  to  the  Tex tSclecti  on’s  text. 

const  char*  TextScIcction::GetOriginal  (int&  len)  ( 
len  =  text->Lcngth(); 
return  text->Tcxt(); 
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char  ♦TcxtSclcction::GetStringO  { 
int  len; 

const  char  *str  =  GetOriginal(lcn); 
char  ♦rva!  new  charflen  +  1]; 
stmcpy  (rval  r,lcn ); 
rval[icn]  =  0; 
return  rva!; 

I 


char  *TcxtSclcction:;GetValidStrmg()  { 
char  ♦str  =  GetStringO; 
char  ♦rva!  =  RcmoveBadChars(str); 
delete  []  str, 
return  rval; 

} 


//  ShapedBy  returns  true  if  the  TcxtSelcction  intersects  a  box  around 
//  the  given  point. 

boolean  TextSelection::ShapedBy  (Coord  px,  Coord  py,  float  maxdist)  { 
int  slop  =  round(maxdist  /  2); 

BoxObj  pidcpoint(px  -  slop,  py  -  slop,  px  +  slop,  py  +  slop); 
return  (LastGraphicIntersecting(pickpoint)  !=  nil); 

) 


//  draw  readjusts  the  spacing  between  lines  of  text  for  a  new  font  if 
//  necessary  and  sets  fillbg  false  and  pattern  solid  to  draw  the  text 
//  like  the  printer  will. 

void  TcxtSelection::draw  (Canvas*  c,  Graphic*  gs)  | 
ReadjustSpacing(gs->GctFontO) ; 
boolean  fillbg  =  gs->BgKlledO; 

PPattem*  pattern  =  gs->GetPattemO;  ' 

gs->SctPattem(psoli  d) ; 
gs->FillBg(falsc); 

Select!  on  ::draw(c,  gs); 
gs->FillBg(fillbg); 
gs->S  etPattem  (pattern); 

} 

//  drawClipped  readjusts  the  spacing  between  lines  of  text  for  a  new 
//  font  if  necessary  and  sets  fillbg  false  and  pattern  solid  to  draw 
//  the  text  like  the  printer  will. 

void  TcxtSelection::drawClipped  (Canvas*  c,  Coord  1,  Coord  b,  Coord  r.  Coord  t. 
Graphic*  gs)  { 

RcadjustSpacing(gs->GetFontO) ; 
boolean  fillbg  =  gs->BgFilledO; 

PPattem*  pattern  =  gs->G etPattem 0; 

gs->SetPattem(psoli  d) ; 
gs->FillBg(false); 

Selection  ::drawC lipped (c,  I,  b,  r,  t,  gs); 

gs->FillBg(fillbg); 

gs*>SetPattem  (pattern) ; 

} 

//  ReadjustSpacing  recalculates  the  spacing  between  lines  of  text. 

void  TcxtSclcction::ReadjustSpacing  (PFont*  font)  { 
if  (font  1=5  nil)  | 

int  newHt  =  ((IFont*)  font)->GetLineHtO; 
if  (lineHt  !=newHt)  { 
lineHt »  newHu 
int  vertoffset  =  -lineHt  +  I ; 
for  (FirstO;  !AtEnd();  Next())  ( 

Graphic*  label  -  GetCurrraitO; 
label->SetTrans  fo  rmcr(nil) ; 
iabel->Transiatc(0,  vertoffset); 
vertoffset  -*=  lineHt; 

1 

I 

I 
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) 


//  ReadTextData  reads  and  returns  the  text  contained  in  the  PostScript 
//  representation  of  the  TextSelection. 

const  char*  TextSelection ::ReadTextData  (istrcam&  from,  int&  len)  { 
TextBuffCT  stext(sbuf,  0,  SBUFSIZE); 
char  nl  =  'Nn*; 


if  (vcrsionnumbcr  >=  NONREDUNDANTVERSION)  { 
Skip(from); 
int  dot  =  0; 
char  c  =  ‘ 

while  (from  »  c  &&  c  !  =  T)  { 
while  (c  != '('  &&  from.gct(c))  { 

I 

while  (from.gct(c)  &&  c  1=  O')  I 
if(c=-NV){ 
from.get(c); 

) 

stext.Inscrt(dot++,  &Ct  1); 

I 

stextInscrt(dot++,  &nl,  1); 

) 

stcxtX)clcte(--dot,  1);  //  buffer  must  not  terminate  in  Nn' 

}  else  { 
int  dot  =  0; 

while  (from  »  buf  &&  strcmp(buf,  startdata)  =  0)  { 
char  blank; 
from.gct(blank); 
from.get(buf,  BUFSIZE  - 1); 
int  buflcn  ~  strien(buf)  +  1 ; 
buffbuflen  - 1)  s=  "Vn*; 
stcxt.Insert(dot,  buf,  buflen); 
dot  +=  buflcn; 

I 

stext.Delete(— dot,  1);  //  buffer  must  not  terminate  in  Nn' 

) 

len  =  stextXengthO; 
return  stcxtTextf); 

} 


//  WriteData  writes  the  TextSelection 's  data  and  Postscript  code  to 
//  draw  it 

void  TcxtSclcction::WriteData  (ostream&  to)  { 
to  «  "Begin  "  «  startdata  «  "  TcxtNn"; 

WritcTcxtGS(to); 
to  «  startdata  «  "Nn"; 
to  «  "(Nn"; 

int  lines  =  tcxt->HcightO; 
for  (int  i  =  0;  i  <  lines;  ++i)  | 
int  bol  =  tcxt->LincIndcx(i); 
int  col  =  tcxt->EndOfLinc(bol); 

const  char*  string  *=  Filtcr(text->Tcxt(bol,  col),  col  -  bol); 
to  «  "("  «  string  «  ")\n"; 

I 

to  «  "]  TextV; 
to  « ‘'EndNnNn"; 

} 


//  Filter  escapes  embedded  special  characters  that  would  cause  syntax 
//  errors  in  a  Postscript  string. 

const  char*  TextSelection rtFilter  (const  char*  string,  int  l«i)  { 
TextBuffer  stcxt(sbuf,  0,  SBUFSIZE); 
char  esc  -  \V; 
char  nul  =  V)*; 

int  dot «  0; 

for  (int  i  K  0;  i  <  len;  i++)  ( 
switch  (*string)  { 
case  T: 
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case 
case  \V: 

stext.Insert(dot++,  &esc,  1); 

//  fall  through 
default: 

stext.Inscrt(dot++,  string-H-»  1); 

) 

} 

stcxtInsert(dot++,  &nu!,  1); 
return  stextTcxtQ; 

I 

boolean  TextSelection::GetDcfPositionO  { 
return  defPosition; 

} 


voidTextSclcction::SetDefPosition(boolean  d)  { 
defPosition  -  d; 

) 


state.h 

#ifodcf  statc_h 
#definc  statc_h 

#include  <JnterVicws/defsJi> 

//Declare  imported  types. 

class  Graphic; 
class  IBrush; 
class  IColor, 
class  IFont; 
class  IPattem; 
class  Interactor, 
class  IntcractoiList; 
class  MapIBmsh; 
class  MapICoIor; 
class  MapIFont; 
class  MapIPattem; 
class  Page; 
class  Transformer, 

//  A  State  stores  state  infonnation  about  the  user's  drawing  and  paint 
//  attributes  to  be  used  when  creating  new  Selections. 

enum  ModifStatus  ( 

ReadOnlyy/no  modifications  to  drawing  allowed 
Unmodified^/  no  modifications  have  been  made  yet 
Modified//  at  least  one  modification  has  been  made 

I; 


class  State  { 
public: 

Statc(Interactor*,  Page*); 

-StatcO; 

void  Constrain  (Coord&,  Coord  &); 
void  TogglcOricntationO; 

IBrush*  GetBrushQ; 

IColor*  GetFgCoIorO; 

int  GctFgColorlndcxflColor*); 

IColor*  GetBgColoK); 

int  GctBgColorlndexflColor*); 

const  char*  GetDrawingNamcQ; 

const  char*  GetMessageO; 

boolean  GetFillBgO; 

IFont*  GetFontO; 
int  GctFontindexflFont*); 
Graphic*  GctGraphicGSQ; 
boolean  GetGridGravityQ; 
double  GetGridSpacingOl 
boolean  GctGridVisibilityQ; 
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int  GetLineHtO; 
float  GctMagnifQ; 

MapIBnish*  Gct^pIBrush(); 

MapIColor*  GctMapIFgCoIor(); 

MapICoIor*  GctMapIBgColorO; 

MapBPont*  GctMapIFont(); 

MapIPattcm*  GetMapIPattemO; 

ModifStatus  GetModifStatusQ; 

IPattcm*  GetPattemO; 

IPattem*  GctAirowPattcmO; 

Graphic*  GctTcxtGSQ; 

Painter*  GctTcxtPaintcr(); 

void  SctBrush(IBrush*); 

void  SctFgColor(IColor*); 

void  SctBgColorijColor*); 

void  SctDrawmgNamc(const  char*); 

void  SetMessage(const  char*); 

void  SctRllBg(boo!can); 

void  SctFont(IFont*); 

void  SctGraphicT(Transfomier&); 

void  SctGridGravity(boolean); 

void  SctGridSpacing(double); 

void  SctGrid\^sibiIity  (boolean); 

void  SetMagnif(float); 

void  SetModifStatus  (ModifStatus); 

void  SctPattcm(IPattcm*); 

void  SetTcxtGS  (Coord,  Coord,  Painter*); 

void  SctXextGS  (Graphic*,  Painter*); 

void  Attach  (Interactor*); 
void  Detach  (Interactor*); 
void  UpdateViewsO; 

protected: 

char*  drawingname;//  stores  drawing's  filename 

char*  msg;  //  stores  editor  message  string 

Graphic*  graphi estate;//  stores  all  attributes  for  creating  graphics 

Transformer*  graphicstatc_t;//  stores  matrix  for  creating  graphics 

boolean  gridding;//  stores  tme  if  grid  will  constrain  points 

double  gridspacing;//  stores  spacing  between  grid  pts  in  points 

float  magnif;//  stores  drawing  view's  magnification  factor 

MapIBrush*  mapibrush;//  stores  list  of  possible  brushes 

MapIColor*  mapifgcolor;//  stores  list  of  possible  fg  colors 

MapIColor*  mapibgcolor;//  stores  list  of  possible  bg  colors 

MapIFont*  mapifont;//  stores  list  of  possible  fonts 

MapIPattem*  mapipattem;//  stores  list  of  possible  patterns 

MapIPattem*  mapiarrowpattem;  //stores  list  of  possible  arrow  patterns 

ModifStatus  modifstatus;//  stores  drawing's  modification  status 

Page*  page;//  stores  all  grid  attributes 

Graphic*  textgs;//  stores  all  attributes  for  creating  text 

Transformer*  textgs^t;//  stores  matrix  for  creating  text 

Painter*  textpainter,//  stores  all  attributes  for  editing  text 

Transformer*  textpainlcr_t;//  stores  matrix  for  editing  text 

float  textx;//  stores  last  place  text  was  being  edited 

float  texty;//  stores  last  place  text  was  being  edited 

int  lineHt;//  stores  spacing  between  lines  of  text 

InteractorList*  viewlist;//  stores  list  of  views  to  notify 


U 


#cndif 


sUte.c 

#include  "ipainUh" 

#include  "istring.h" 

#include  "listintrctrii" 

#include  "mapipainth" 

#include  "pagcJi" 

#inc)udc  "statc.h‘' 

#include  <InterViews/graphic.h> 
#include  <lntcrVicws^iteractor.h> 
#include  <IntcrViews^aintcrJi> 
#inciude  <dntcrVicwsAransformer.h> 
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//  State  stores  some  Graphic  and  nonGraphic  attributes. 

State::State  (Interactor*  i,  Page*  p)  { 
drawingname  *  nil; 
msg  =  nil; 

graphicstate  =  new  FullGraphic; 
graphicstate_t  =  new  Transformer, 
magnif  =  1.0; 

mapibnish  -  new  MaplBrush(i,  "brush"); 
mapifgcolor  =  new  MapIColor(i,  "fgcolor"); 
mapibgcolor  =  ncw  MapIColor(i,  "bgcolor"); 
mapifont  «=  new  MapIFont(i,  "font"); 
mapipattem  =  new  MapIPattem(i,  "pattern"); 
mapiarrowpattcm  =  new  MapIPattem(i,  "arrowpattem"); 
modifstatus  =  Unmodified; 
page  =  p; 

tcxtgs  =  new  FullGraphic; 
tcxtgs_t  new  Transfomter; 
tcxtpaintcr  =  new  Painter; 
textpai  nter->RcferenceO ; 
textpaintcr_t  =:  new  Transformer, 
viewlist  =  new  IntcractorList; 

graphicstatc->SctB  rush(mapibrush->GctInitial()) ; 
graphicstate->SetCo  lors( 

mapifgcolor->GctInitial(),  mapibgcolor->GetInitialO 

); 

graphicstatc->Fi  IlBg(truc); 
graphic5tatc->SetFont(mapifont->GctInitial  0) ; 
graphi  cstate->SetPattem(mapipattem-  >GetIniti  al  0); 
graphicstate->SetTransformcr(graphicstate_t); 
tcxtgs->SetTransformer(textgs_t); 
tcxtpaintcr->SetTransformer(tex^ainter_t); 

} 


//  --State  frees  storage  allocated  to  store  members. 

State:  :~State  ()  { 
delete  drawingname; 
delete  graphicstate; 
delete  mapibrush; 
delete  mapifgcolor; 
delete  mapibgcolor, 
delete  mapifont; 
delete  mapipattem; 

delete  mapiarrowpattem; 
delete  textgs; 

Un  ref (tex  tpaintcr); 
delete  viewlist; 

} 

//  The  following  functions  add  Page  operations  to  State. 

void  State:  rConstrain  (Coord&  x,  Coord&  y)  { 
page->Constrain(x,  y); 

} 

void  State:  :TogglcOrientation  0  { 
page'>ToggleOrientation  0; 

1 

//The  following  functions  return  Graphic  and  nonGraphic  attributes  of 

//  the  State. 

IBrush*  State: :GetB rush  ()  { 
return  (IBrush*)  graphicstate->GctBrushO; 

I 

IColor*  State ::GctFgCo lor  ()  { 
return  (IColor*)  graph icstate*>GetFgColorO; 

) 

IColor*  State: :GetBgColor  ()  | 
return  (IColor*)  graphicstate->GetBgColorO; 

I 
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int  State:  :GctFgColorIndcx  (IColor  *c)  { 

int  count  =  0; 

for  (mapifgcolor'>FifSt();!mapifgcolor->AtEnd();niapifgcolor->NcxtO)  { 
if  (mapifgcolor->GctCur()  =  c) 
return  count; 
count++; 

} 

return  -1; 

} 

int  State: :GetBgColoiIndcx  (IColor  *c)  { 

int  count  =  0; 

for  (mapibgcolor->FirstO;!naapibgcolor->AtEnd();inapibgcolor->NextO)  { 
if  (mapibgcolor->GctCurO  **  c) 
return  count; 
count++; 

} 

return  -1; 


const  char*  State:  :GctDrawingName  0  I 
return  drawingname; 

} 


const  char*  State:  :GetMessageO  { 
return  msg; 

) 


boolean  State: :GctFillBg  ()  { 
return  graphicstate->BgFilled(); 

I 


IFont*  State:  :GctFont  0  { 

return  (IFont*)  graphicstatc->GctFont(); 

I 

int  State:  :GetFontIndex  (IFont  *f)  { 
int  count  =  0; 

for  (mapifont->First();!mapifont->AtEnd();mapifont->NextO)  { 
if  (mapifont->GctCur()  =  0 
return  count; 
count++; 

} 

return  -1; 

) 


Graphic*  State: :GctGraphicGS  ()  | 
return  graphicstatc; 

> 


boolean  State::GctGridGravity  ()  { 
return  pagc->GctGTidGravity{); 


double  State:  :GetGridSpacing  ()  | 
return  page->GetGridSpacing(); 


boolean  State:  :GctG  rid  Visibility  0  I 
return  pagc->GetGridVisibility(); 

} 

int  State:  :GetLineHt  0  I 
return  lineHt; 

) 


float  State::GetMagnif  ()  { 
return  magnif; 

1 

MapIBiush*  State::GetMapIBru$h  Q  { 
return  mapibrush; 

} 

MapICoIor*  State::GctMapIFgColor  ()  ( 
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return  mapifgcolor; 


} 

MapIColor*  State:  :GctMapIBgCol  or  ()  { 
return  mapibgcolor, 

} 

MapIFont*  State:  :GctMapIFont  ()  { 
return  mapifont; 

MapIPattem*  State; :GetMapIPattem()  { 
return  mapipattcm; 

) 


ModifStatus  State:  :GetModifStatus  0  { 
return  modifstatus; 

I 

//  Return  stored  arrow  pattern 

IPattcm*  Statc;;GctArtDwPattcmO  { 
return  mapiaiTowpattem->GetCurO; 

} 


IPattcm*  State:  ;GetPattcm  0  ( 
return  (IPattcm*)  graphicstatc->GctPattcmO; 

} 


Graphic*  Sute;:GctTc)itGS  0  I 
return  textgs; 

} 

Painter*  State:  :GetTcxtPaintcr  0  { 
return  textpainter; 

I 


//The  following  functions  set  Graphic  and  nonGraphic  attributes  of 
//  the  State. 

void  State: :SetBrtish  (IBrush*  b)  { 
graphicstatc->SctBnish(b): 

} 

void  State:  :SetFgColor  (IColor*  fg)  { 
graphicstate->SctColors(fg,  graphicstatc->GetBgColorO); 

I 

void  Sute::SctBgColor  (IColor*  bg)  { 
graphicstatc->SctColors(graphi  cstatc->GctFgCol  oi<),  bg); 

I 

void  State:  :SetDrawingName  (const  char*  name)  { 
delete  drawingname; 

drawingname  =  name  ?  strdup(name) :  nil; 

I 

void  State: :SetMcssagc(const  char*  m)  ( 
delete  msg; 

msg  «  m  ?  strdup(m) :  nil; 

1 

void  State: :SetFillBg  (boolean  fill)  { 
graphicstatc->RllBg(fill); 

I 


void  State:  :SctFont  (IFont*  f)  { 
graphicstate->SetFont(f) ; 


void  Sutc::SctGraphicT  (Transformcr&  t)  { 
*graphicstatc_t « t; 

graphicstate_t->InvertO; 

Transformer  tnew; 
float  lefu  top; 


graphicstate_t->InvTransfoim(textx,  texty,  left,  top); 
tnew.Scalc(magnif,  magnif); 
tncw.Translate(lefti  top); 

*tcxtpamtcr_t  =  tnew; 

tnew J*ostmu  Itip  ly(graphicstatc_t); 

*tcxtgs_t  =  tnew; 

} 

void  State:  ;SctGridGravity  (boolean  g)  { 
page->S  etG  ri  dG  ra  vity(g); 

} 


void  State:  :SctG  rids  pacing  (doubles)  { 
page->SctG  ri  dSpacing(s) ; 

} 


void  State: ;SetGridVisibility  (boolean  v)  { 
page->SctG  ridM  sibility  (v ); 

} 


void  State:  :SetMagnif  (float  m)  { 
magnif  *=  m; 

) 


void  State:  :SetModifStatus  (ModifStatus  m)  { 
modifstatus  =  m; 

} 


void  State:  :SctPattcm  (IPattem*  p)  { 
graphicstatc->SctPattcm  (p) ; 

} 

void  State: :SetTcxtGS  (Coord  left.  Coord  top.  Painter*  ou^)ut)  { 
PColor*  fg  =  graphicstate->GetFgColor(); 

PFont*  f  *  graphicstatc->GctFontO; 
lineHt  =  ((IFont*)  0->GctLtocHtO; 
tcxtgs->SetColors(fg,  tcxtgS‘>GetBgColor()); 
tcxtgs->SctFont(f); 

textpainter->SetColors(*fg,  output‘>GetBgColor()); 
tex  tpainter->S  etFont(*  f) ; 

giaphicstatc_t->Transfoim(float(left),  float(top),  textx,  texty); 

Transformer  t; 
t.Scale(magnif,  magnif); 

LTranslatc(left,  top); 

*textpainter_t  =  t; 
tPostmultiply(graphicstatc_t); 

*textgs_t  s=  t; 

I 

void  State: :SctTcxtGS  (Graphic*  gs,  Painter*  output)  { 

PColor*  fg  «  gs->GetFgColorO; 

PFont*  f  =  gs->GetFont(); 
lineHt  =  ((BFont*)  f)“>GetLineHtO; 
textgs->SetColors(fg,  textgs->GetBgColor()); 
tcxtgs->SetFont(f) ; 

textpainter->SctColors(*fg,  output->GetBgColorO); 
textpai  ntcr->S  etFont(  *0; 

gs->Totarrransf ormati  on(  *textpainter_t); 

Transformer*  t «  gs->GetTransformcrO; 
if  (t  !«nil)  I 

t->Transform(0.0, 0.0,  textx,  texty); 

I 

I 

//  Attach  infonns  us  a  view  has  attached  itself  to  us. 

void  State:  ^Attach  (Interactor*  i)  { 

vicwlist“>Appcnd(new  InteractorNode(i)); 

I 

//  Detach  informs  us  a  view  has  detached  itself  from  us. 

void  State:  J)etach  (Intcractor*  i)  { 
if  (viewlist->Find(i))  | 
vicwlist- >DcletcCu  r() ; 


} 

I 

//  Updatc\^ews  infoims  all  attached  views  we  have  changed  our  state, 
void  State: rUpdate Views  ()  { 

for  (viewlist->Rrst();  !viewlist->AtEnd();  viewlist->Next())  { 
Interactor*  view  =  viewlist->GetCur()->GctInteractoK); 
vicw->Updatc(); 

I 

I 


stateviews.h 

#ifadef  stateviews_h 
#definc  statcviews__h 

#include  <InterVicws^tcractor,h> 

//  Declare  imported  types. 

class  Graphic; 
class  State; 

//  A  StateView  attaches  itself  to  a  State  and  displays  some  of  the 
//  State's  information. 

class  StatcMcw  :  public  Interactor  { 
public: 

StateVicw(State*,  const  char*); 

-StateX^ewO; 

protected: 

void  RcconfigO; 

void  Redraw(Coord,  Coord,  Coord,  Coord); 
void  ResizeQ; 

State*  state;//  stores  subject  whose  attribute  view  displays 
char*  label;//  stores  view's  text  label 

Coord  label_x,  label_y;// stores  position  at  which  to  display  label 


}; 


//  A  Brush  View  displays  the  current  brush. 

class  Brush  View  :  public  StateView  { 
public: 

B  rush  Vie  w(Statc*); 

-'Brush  View  0; 

void  UpdateQ; 

protected: 

void  RcconfigO; 

void  Rcdraw(Coord,  Coord,  Coord,  Coord); 
void  ResizeQ; 

Graphic*  brushindic;//  displays  line  to  demonstrate  brush's  effect 


}; 


//  A  DrawingNameView  displays  the  drawing's  name. 

class  DrawingNameView  :  public  StateView  { 
public: 

DrawingNameViewfStatc*); 
void  UpdateQ; 
protected: 
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void  RcconfigO; 
void  ResizeQ; 

const  char*  GctDrawingName(State*); 


//  A  FontVicw  displays  the  current  font. 

class  FontView :  public  StatcVicw  { 
public: 

FontMcwfStatc*); 

-FontViewO; 

void  UpdatcQ; 

protected: 

void  RcconfigO; 

void  Rcdraw(Coord,  Coord,  Coord,  Coord); 
const  char*  GetPrintFontAndSize(State*); 

Painter*  background;// draws  background  behind  label 


}; 


//  A  GriddingVicw  displays  the  current  status  of  the  grid's  gridding. 

class  GriddingVicw  :  public  StateView  { 
public: 

GriddingView(State*); 
void  UpdateO; 
protected: 

const  char*  GctGridding(State*); 


//  A  MagnifVicw  displays  the  curmit  magnification. 

class  MagnifView  :  public  StateView  { 
public: 

MagnifVicw  (State*,  Interactor*); 
void  UpdatcQ; 
protected: 
void  ResizeQ; 

const  char*  GetMagnif (State*); 


//  A  ModifStatusView  displays  the  current  modification  status. 

class  ModifStatusView  :  public  StateView  | 
public: 

ModifStatusVicw(State*) ; 
void  UpdatcQ; 
protected: 

const  char*  GctModifStatus(Statc*); 

I; 

//  A  Pattem\^cw  displays  the  current  pattern, 
class  Pattern  View  :  public  StateView  | 


public: 


Pattcm\^cw(State*); 

-Pattern  View(); 

void  UpdatcO; 

protected: 

void  ReconfigO; 

void  Redraw(Coord,  Coord,  Coord,  Coord); 

Painter*  patindic;//  fills  rcct  to  demonstrate  pat's  effect 


class  Msg  View  :  public  State  View  { 
public: 

MsgVicw(Statc* ); 
void  UpdateO; 
protected: 
void  ReconfigO; 
void  RcsizcQ; 

const  char*  GetMcssagc(State*); 

1; 


#endif 


sUteviews.c 

#include  "ipainth" 

#include  "istringii" 

#include  "sllincs.h" 

#inciude  "statc.h" 

#includc  "stateviews.h" 

#includc  <lntcrViews^aintcr.h> 

#includc  <interVicws^erspcctive.h> 

#include  <IntcrViews/shapeJt> 

#include  <IntcrVicws/Std/stdioJi> 

//  State  View  attaches  itself  to  the  State's  list  of  views  to  update 
//  and  stores  the  State  and  text  label. 

StateView::StateView  (State*  s,  const  char*  I)  { 
s->Attach(this); 
state  =  s; 

label  =  strdup(l  ?  1 : 

I 


//  Free  storage  allocated  for  the  text  label. 

StateVicw::'-StateView  Q  { 
delete  label; 

1 

//  Rcconfig  pads  the  view's  shape  to  accomodate  its  text  label. 

//  Basing  padding  on  the  font  in  use  ensures  the  padding  will  change 

//  proportionally  with  changes  in  the  font's  size. 

static  const  float  WIDTHPAD  =  1.0;  //  fraction  of  font->Width(EM) 

static  const  float  HTPAD  =  0.2;  /A fraction  of  font->HcightO 

static  const  char*  EM  =  "m";  //  widest  alphabetic  character  in  any  font 

void  StatcVicw::Rcconfig  0  I 
Interactor::  ReconfigO; 

Font*  font «  output->GctFontO; 
int  xpad  =  round  (WIDTHPAD  *  font->Width(EM)); 
int  ypad  =  round(HTPAD  *  font->Hci^tO); 
shapc-> width  =  fonl“>Width(label)  +  (2  *  xpad); 
shape->hcight  =  font->Hcight()  -f  (2  *  ypad); 
shapC'>Rigid(shape“> width  -  xpad,  0, 2  *  ypad,  0); 

I 

//  Redraw  displays  the  text  label. 

void  StatcVicw::Rcdraw  (Coord  1,  Coord  b.  Coord  r.  Coord  t)  { 
output->QearRoa(canvas,  I,  b.  r,  t); 
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output->Text(canvas,  label,  Iabcl_x,  label_y); 

} 

//  Resize  centers  the  text  label's  position  unless  the  label  won't  fit 
//  on  the  canvas,  in  which  case  Resize  left  justifies  the  positioa 

void  StateView "Resize  ()  { 

Font*  font »  output->GetFont(); 

labcl_x  =  max(0,  (xmax  -  font->\Vidth  (label)  +  1)  /  2); 

label_y  =  (ymax  -  font->Height()  +  1)  /  2; 

} 

//BrushView  creates  a  graphic  to  dononstratc  the  brush’s  effect  on  a 
//line. 

static  const  int  PICXMAX  =  28;//  chosen  to  minimize  scaling  for  canvas 
static  const  int  PICYMAX  =  18; 

Brush Vicw::Brush View  (State*  s) :  (s,  "  N  ")  { 

//  store  pattern  in  temporary  variable 

IPattem*  temp  =  statc->GctPattem(); 

//  make  pattern  state  to  be  the  arrow  pattern 

state->SctPattcm  (statc->GetArTo  wPattemO) ; 

//  draw  line  with  arrow  pattern 

brushindic  =  new  LincSelection(0, 0,  PICXMAX,  0,  statc->GctGraphicGS()); 

//  reset  pattern 

state->SetPattcm  (temp); 

bmshmclic->S  ctTransf ormeifnil) ; 

} 

//  Free  storage  allocated  for  the  graphic, 

BrushVicw::'-B  rash  View  ()  { 
delete  brushindic; 

) 

//  Skew  commcnts/code  ratio  to  work  around  epp  bug 


//  Update  updates  the  view  if  any  of  the  brush,  colors,  or  pattern 
//  changes. 

void  BrushView  "Update  ()  { 

EBrush*  brush  =statc->GctBrushOl 
IColor*  fgcolor  =  statc->GetFgColorO; 

ICoIor*  bgcolor  *  statC‘>GetBgColorO; 

//  set  pattern  of  brash  to  be  arrow  pattern 

IPattem*  pattern  =  statc->GctArrowPattcm(); 
if  (brashindic->GetBrush()  1=  brush  I) 
brashindic->GetFgColorO  1=  fgcolor  II 
brushindic->GctBgColor()  1=  bgcolor  II 
brashindic->GctPattem()  !=  pattern) 

{ 

brashindic->SctBrush(brash); 
brashindic->SetColors(fgcolor,  bgcolor); 
brashindic->SctPattcm(pattcm); 

DrawQ; 

} 

} 

//  Reconfig  computes  Brash  View's  shape  and  makes  room  for  the  VB  order 
//  between  itself  and  the  Pattern  View. 

void  Brush View::Rcconfig  ()  | 

StateView::Rcconfig(); 
shape'>width  1; 


shape“>RigidO; 

} 

//  Redraw  displays  the  text  label  if  the  brush's  the  none  brush,  else 
//  it  displays  the  graphic  to  demonstrate  the  brush's  effect 

void  Brush  View:  :Redraw  (Coord  1,  Coord  b.  Coord  r,  Coord  t)  { 
EBrush*  brush  =  (IBrush*)  brushindic->GctBrush(); 
if  (brush ‘>None())  { 

StatcVicw::Rcdraw(l,  b,  r,  t); 

I  else  { 

output->QearRcct(canvas,  1,  b,  r,  t); 
brushindic->Draw(canvas); 

} 

} 


//  Resize  scales  the  graphic  to  fit  the  canvas'  size, 
void  Brush Vicw::Resize  0  { 

StateVicw :  rResizeO; 
float  xmag  =  float(xmax)  /PICXMAX; 
float  hy  =  float(ymax)  /2; 
brushmdic->S  ctTTansformcr(nil) ; 
brushindic->Scalc(xmag,  1.); 
brushindic->Translatc(0.,  hy); 

) 

//  DrawingNameView  just  passes  the  drawing’s  name  to  StateView. 

DrawingNamcView:ff)rawingNameView  (State*  s) :  (s,  GetDrawingNamc(s))  { 

} 

//  Update  updates  the  view  of  the  drawing's  name. 

void  DrawingNameView  ::Updatc  ()  { 

const  char*  drawingname  -  GctDrawingNamc(statc); 
if  (strcmp(drawingname,  label)  !=  0)  { 
delete  label; 

label  =  strdup  (drawingname); 

ResizeO; 

DrawQ; 

) 

I 


//  Reconfig  gives  DrawingNameView's  shape  some  stretchability  to  get 
//  more  space  if  the  HBox  has  room  for  it  to  stretch- 

void  DrawingNameView::Reconfig  ()  { 

StateVi  ew : ;  ReconfigO ; 
shape’>hstretch  =  hfil; 

I 

//  Resize  left  justifies  the  text  label's  position. 

void  DrawingNameView::Rcsize  0  { 

Font*  font «  output“>GctFontO; 
labcl_x  =5  0; 

labcl_y  ss  (ymax  -  font->Height()  +  1)  /  2; 


//  GetDrawingName  returns  the  drawing’s  name  or  a  default  labd  if  it 
//  has  no  name. 

const  char*  DrawingNameView  “GetDrawingName  (State*  state)  | 
const  char*  drawingname  =  state->GctDrawingName(); 
return  drawingname  ?  drawingname  :  "[unnamed  drawing]"; 

I 

//  Font  View  passes  the  font's  print  name  and  size  to  StateView  for  its 
//  label. 

FontView:  J^ontView  (State*  s) :  (s,  GetPrintFontAndSize(s))  { 
background  ^  nil; 

I 

//  Free  storage  allocated  for  the  background  painter. 
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FontVicwri-FontView  ()  { 
Unref (background); 

I 


//  Update  updates  the  view  if  the  label  or  the  current  color  changes. 

void  FontVicw;:Update  ()  { 
const  char*  name  =  GetPrintFontAndSize(statc); 

Color*  fgcolor  =  ♦statc->GetFgColor(); 
if  (strcmp(name,  label)  1=  0)  { 
delete  label; 
label  =  strdup(namc); 

output->SetCo  lo  rs  (fgcolor,  outp  ut->GctBgColor() ); 

ResizcO; 

DrawQ; 

}  else  if  (output->GetFgColorO  1=  fgcolor)  { 
output->SctColo  rs  (fgcolor,  output->GctBgColorO); 

DrawO; 

} 

I 

//  Reconfig  gives  FontView's  shape  some  stretchability  to  get  more 
//  space  if  the  HBox  has  room  for  it  to  stretch,  creates  a  new  painter 
//  to  draw  a  gray  background  behind  the  label,  and  replaces  ou^ut 
//  with  a  new  painter  to  use  a  different  color. 

void  FontVicw::Rcconfig  0  1 
StateView  :;Rcconfig() ; 
shape->hstretch  =  hfil; 

if  (background  =**=  nil)  { 
background  =  new  Painterfou^jut); 
background->Refcrencc(); 
background->SetPattcm(gray); 

) 


Color*  fgcolor  =  *statc->GctFgColoiO; 

Painter*  copy  =  new  Painter(output); 
copy->Rcfcrcncc() ; 

Unrcf(output); 
output  =  copy; 

output“>SctColors(fgcolor,  output->GctBgColorO); 
output->FillBg(faIse); 

1 

//  Redraw  displays  the  graphic  label  over  a  gray  background  to  make 
//  the  label  visible  even  if  it  uses  the  white  color. 

void  FontView::Redraw  (Coord  1,  Coord  b.  Coord  r,  Oord  t)  { 
background->FillRcct(canvas,  1,  b,  r,  t); 
output->Tcxt(canvas,  label,  labcl_x,  label_y); 

} 

//  GetPrintFontAndSize  returns  the  font's  print  name  and  size. 

const  char*  FontVicw::GctFVintFontAndSizc  (State*  state)  { 

IFont*  f  *  state->GctFont(); 
return  f‘>GetPrintFontAndSizcO; 

1 


//  G  ridding  View  passes  the  grid's  gridding  on/off  status  to  StateView. 
GriddingView::GriddingView  (State*  s) :  (s,  GetGridding(s))  { 

I 

//  Update  updates  the  view  of  the  grid's  gridding  on/off  status. 

void  GriddingView  "Update  0  I 
const  char*  gridding  =  GctGridding(statc); 
if  (strcmp(gridding,  label)  0)  { 
delete  label; 

label  K  strdup  (gridding); 

DrawO; 

1 

1 
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//  GetGridding  returns  the  status  of  the  grid's  gridding  as  a  text 
//  string. 

const  char*  GriddingView;:GetGridding  (State*  state)  { 
const  char^  gravity  =  nil; 
if  (state->GetGridGravity())  { 
gravity  =  "gridding  on"; 

}  else  { 

gravity  =  "  "; 

} 

return  gravity; 

} 


//  MagnifView  attaches  itself  to  the  Drawing  View’s  perspective  to  get 
//  itself  updated  whenever  the  magnification  changes. 

MagnifView  "MagnifView  (State*  Interactor*  dwgview) :  (s,  GetMagnif(s))  { 
dwgview->GctPerepcctivc()->Attach(this); 

) 


//  Update  updates  the  view  of  the  current  magnification. 

void  MagnifVicw::Updatc  ()  { 
const  char*  magnif  =  GetMagnif (state); 
if  (strcmp(magnif,  label)  !*  0)  { 
delete  label; 
label  =  strdup  (magnif); 

ResizeQ; 

DrawO; 

} 

1 

//  Resize  right  justifies  the  text  label's  position. 

void  Magnif\fiew::Resize  0  ( 

Font*  font  =  output->GctFont(); 
labcLx  =  xmax  -  font->Width (label)  +  1; 
labcl_y  =  (ymax  -  font->Height()  +  1)  /  2; 

} 

//  GetMagnif  returns  the  drawing's  magnification  as  a  text  string. 

const  char*  MagnifView ::GctMagnif  (State*  state)  { 
static  char  mag[20]; 

float  magnif  =  statc->GctMagnifO; 
sprintf(mag,  "  mag  %.10gx  ",  magnif); 
return  mag; 

1 

//  ModifStatusView  just  passes  the  modification  status  to  StateView. 

Modi  fSta tus View  "ModifStatusView  (State*  s) :  (s,  GctModifStatus(s))  { 

} 

//  Update  updates  the  view  of  the  current  modification  status. 

void  ModifStatusView::Updatc  Q  ( 
const  char*  modifstatus  *=  GetModifStatus  (state); 
if  (strcmp(modifstatus,  label)  !*  0)  { 
delete  label; 

label  =  strdup  (modifstatus); 

DrawQ; 

I 

} 

//  GetModifStatus  returns  the  drawing’s  modification  status. 

const  char*  ModifStatusView: iGetModifStatus  (State*  state)  { 
switch  (state->GctModifStatus())  { 
case  Readonly: 
return 

case  Unmodified: 
return  "  "; 
default: 
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return 


} 

//  PattemView  passes  its  none  pattern  label  to  StateView. 

Pattern  View:  :Pattcni  View  (State*  s) :  (s,  "  N  ")  { 
patindic  =  nil; 

} 

//  Free  storage  allocated  for  the  fillrect  painter. 

PattemView  :;-'Pattem View  Q  { 

Unrrf(patindic); 

I 


//  Update  updates  the  view  if  any  of  the  colors  or  pattern  changes. 

void  PattemView:  lUpdate  0  I 
Color*  fgcolor  =  ♦statc->GetFgColoiU; 

Color*  bgcolor  =  *statc->GctBgColorO; 

Pattern*  pattern  -  *statc->GetPattemO; 
if  (patindic->GctFgColoK)  1=  fgcolor  II 
patindic- >GetBgColorO  1=  bgcolor  II 
patindic->GetPattcm()  1-  pattern) 

{ 

patindic->SetColors(fgcolor,  bgcolor); 
patindic->SetPattem(pattem); 

DrawQ; 

I 

} 


//  Reconfig  creates  the  pattern  indicator’s  painter. 

void  PattemView  ::Reconfig  Q  { 

StateVicw::RcconfigO; 

8hape->RigidO; 
if  (patindic  =  nil)  { 

Coloi^  fgcolor  -  *stat©->GctFgColor(); 

Color*  bgcolor  =  *state->GctBgColor(); 

Pattern*  pattern  =  *statc->GctPattem(); 
patindic  =  new  Paintcr(output); 
patindic->Refcrencc(); 
patindic->SctColors(fgcolor,  bgcolor); 
patindi  c->SctPattcm  (pattern ); 

1 

I 

//  Redraw  displays  the  text  label  if  the  pattern’s  the  none  pattern^ 
//  else  it  displays  the  fillrect  to  demonstrate  the  pattern's  effect 

void  PattemView; :Rcdraw  (Cooid  1,  Coord  b.  Coord  r,  Coord  t)  { 
if  (state->GetPattem()->None())  { 

StateView  ::RedrawO,  b»  r,  t); 

1  else  { 

patindic->FillRect(canvas»  1»  b»  1 1); 

1 

I 

MsgView;;MsgView(State*  s) :  (s,GctMessage(s))  { 

I 

void  MsgVicw::Updatc()  { 

const  char*  msg  *  GetMcssagc(statc); 

if  (strcmp(msg4abel)  1=  0)  { 

delete  label; 

label strdupfmsg); 

RcsizeO; 

DrawQ; 

} 

) 


void  MsgVicw::Rcconfig()  { 
StateView;  :ReconfigO; 
shape- >hstretch  *  hfil; 

1 


void  MsgView::Rcsize()  { 

Font*  font  =  ou^)ut->GetFontO; 
labcl^x  sK  0; 

Iabel_y  =  (ymax  -  font->Hcight()  +  1)  /  2; 

I 


const  char*  MsgVicw::GetMessage(State*  state)  { 
const  char*  msg  =  statc->GctMessage(); 
return  msg  ?  msg  :  " 

) 


textedith 


#ifridcf  tcxtcdit_h 
#dcfinc  tcxtcdit_h 

#include  <3ntcrVicws/dcfs  Ji> 

//  Declare  imported  types. 

class  Canvas; 
class  Event; 
class  Painter, 
class  TextDisplay; 
class  TextBuffer; 

//  A  TextEdit  edits  an  array  of  lines  of  text 

class  TextEdit  { 
public: 

TextEdit(const  char*  =  0,  int  *=  0); 

-TextEditO; 

const  char*  GetTcxt(int&); 
char  *GctStringO; 

void  RcdrawfPaintcr*,  Canvas*,  int  lincHt,  boolean  redraw); 
void  Grasp  (Even  t&); 
boolean  Editing(Evcnt&); 

void  Bounds(Coord&  xmin,  Coord&  ymin,  Coord&  xmax,  Coord&  ymax); 
protected: 

boolean  HandleKcy(char); 

void  InscrtCharacterfchar); 
void  DclctcCharacterfint); 

void  InscrtText(const  char*,  int); 
void  DclctcTcxt(int); 

void  DeletcRcstOfLincO; 
void  Deletes clectionO; 

void  BackwardCharactcrfint  =  1),  ForwardCharacterfint  =1); 
void  BackwardLinefint  =  1),  ForwardLinefint  1); 

void  BeginningOflineO,  EndOfLincQ; 

void  Selectfint  dot); 

void  SelectMorefint  marie); 

void  SelectLineO; 

void  SdectWordO; 

void  Sclcct(int  dot,  int  mark); 

boolean  ContainsfCoord,  Coord); 
int  LocalefCoord,  Coord); 

protected: 

boolean  selecting; 
int  dot,  mark; 

TextBufTer*  text; 

TextDisplay*  display, 


314 


Painter*  ouQjut; 


}; 


#endif 


texteditc 

#includc  "textcdith" 

#inctudc  ”istrmg.h" 

#include  <InterViews/canvas.h> 

#includc  <intcrVicws/cvcnt.h> 

#include  <IntcrVicws/fonth> 

#include  <IntcrVicws^amtcr.h> 

#includc  ‘^tcrVicws^xtbuffcrii> 

#include  <IntcrVicws/tcxtdispIay.h> 

#include  <IntcrVicwsAransformcr.h> 

#includc  <bstring.h> 

#mclude  <ctypc.h> 

//  Beware:  only  one  instance  of  TextEdit  can  exist  at  any  time! 

static  const  int  SBUFSIZE  =  10000; 
static  char  sbuf(SBUFSIZEj; 

TextEdit  ::TcxtEdit  (const  char*  sample,  int  samplen)  { 
selecting  s  false; 
dot  *  mark  *s  0; 

text  =  new  TcxtBuffer(sbuf,  0,  SBUFSIZE); 
display  =  new  TextDisplay(tnie); 
ou^ut  =  niI; 

tcxt->lnscit(0,  sample,  samplen); 
int  lines  «*  tcxt->Height0; 
for  (int  i  *  0;  i  <  lines;  -H-i)  { 
int  bol  =  text->LineIndex(i); 
int  eol  =  tcxt->EndOfLine(bol); 
display->RcplaceText(i,  tcxt->Text(bol,  col),  col  -  bol); 

} 

I 

TcxtEdit::'-TcxtEdit  ()  | 
delete  text; 
delete  display; 

} 


const  char*  TextEdit:  iGetTcxt  (int&  size)  { 
size  =  text->Length(); 
return  tcxt->Text(); 

} 


char  *TcxtEdit::GctStringO  I 

int  len; 

const  char  *str  =  GetTcxtOcn); 
char  *rval  =  new  charflen  +  1]; 
stmcpy(rval,str,lcn); 
rval[lcn]  =0; 
return  rval; 

) 


void  TextEdit:  :Redraw  ( 

Painter*  ou^ut,  Canvas*  canvas,  int  lineHt,  boolean  redraw 

){ 

TextEdit:  :output «  output; 
display->Diaw(output,  canvas); 

display>>LineHeight(lineHt) ; 

Coord  1  =  0; 

Coord  b  *  0  -  dispIay->HcightO; 

Coord  r  *  0  +  display->Width(); 

Coord  t  *  0; 

di5piay’>Resize(l,  b,  r,  t); 
if  (redraw)  | 

display«>Rcdraw(l,  b,  r,  t); 


} 

} 

void  TextEdit::Grasp  (Evcnt&  e)  { 

Sclcct(Locatc(c.x,  c.y)); 
selecting  =  true; 
c.evcntTypc  =  MotionEvent; 

) 

boolean  TextEdit:  JEdi ting  (Evcnt&  e)  { 
boolean  editing  =  true; 

if  (e.eventTypc  —  KeyEvcait  &&  e.len  >  0)  { 
editing  =  HandleKcy(ej£eystring[0]); 

}  else  if  (e.eventTypc  *=  MotionEvwjt  &&  selecting)  { 
SclectMorc(Locatc(c.x,  e.y)); 

}  else  if  {c.cvcntType  *=  DownEvent)  { 
if(c.shift)| 

SclectMorc(Locate(c.x,  e.y)); 
selecting  =*  trae; 

}  else  if  (Contains(c.x,  c.y))  { 

Sclcct(Locatc(c.x,  c.y)); 
selecting  =  true; 

I  else  { 

editing  =  false; 

} 

}  else  if  (c.cvcntType  =  UpEvent)  { 
selecting  =  false; 

I 

if  (I editing)  ( 

Sclect(dot); 

display->CarctStyle(NoCarct); 

) 

return  editing; 

} 


void  TextEdit:  rBounds  (Coord&  xmin,  Cooni&  ymin,  Coord&  xmax,  Coord&  ymax)  { 
Transformer*  t  =  output->GctTransformcrO; 

display->Bounds(xmin,  ymin,  xmax,  ymax); 
if  (t  !=  nil)  { 

t->TransformRcct(xmin,  ymin,  xmax,  ymax); 

} 

I 


boolean  TextEdit:  JlandlcKcy  (char  c)  { 

boolean  editing  » true; 

switch  (c)  { 

case  NOOIV* */:  BcginningO£Line();  break; 
case  V)05'  /*  '^E  */:  EndOfLinc();  break; 
case  V)06'  /*  */;  ForwardCharactcr(l);  break; 

case  V)027* '^B  */:  BackwardCliaractcr(l);  break; 
case  V)16'/*'^N  */:  ForwardLinc(l);  break; 
case  V)207* */:  BackwardLinc(l);  break; 
caseV)137*^K  */:  DclctcRestOfLinc();  break; 
case  \0047* */:  DcletcCharactcKl);  break; 
case  NO  107*  */:  DclctcCharacter(-l);  break; 

case \1 777* DEL*/:  DelctcCharacter(-l);  break; 
case  \0 1  r  /*  TAB  */:  InscrtCharactcrC ');  break; 
case  N027’  /*  •/:  SclcctWord();  break; 

casc\0257*'^U  */:  SelectLine();  break; 
case  N0157*  RET  ♦/:  InsertC^aractcr(Nn');  break; 
case  \033'  /*  ESC  */:  editing  =  false;  break; 
default: 

if  (!iscntrl(c))  { 

InsertCha  racterfe) ; 

I 

t»reak; 

I 

return  editing; 

I 


void  TextEdit: dnsertCharacter  (char  c)  { 
Del^eSelectionO; 
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InsertText(&c,  1); 

) 

void  TextEdit: :DclctcCharactcr  (int  count)  { 
if  (dot  !=  mark)  { 

Deletes  election  (); 

}  else  I 

DclctcTcxt(count) ; 

I 


void  TextEdit:  ilnsertText  (const  char*  s,  int  count)  { 
count  =  tcxt->Inscrt(dot,  s,  count); 
int  sline  =  tcxt->LineNumber(dot); 
int  fline  =  tcxt">LineNumber(dot  +  count); 
if  (sline  =  fline)  { 

int  offset  =  text“>LineOffset(dot); 
display->InsertText(sline,  offset,  text->Text(dot),  count); 
}  else  { 

display->InsertLincsAfter(slinc,  fline-sline); 
for  (int  i  =  sline;  i  <=  fline;  ++i)  { 
int  bol  =  text->BeginningOfLine(tcxt->LineIndex(i)); 
int  col  =  text->EndOfLinc(bol); 
display->R^IaccTcxt(i,  tcxt->Tcxt(bol,  eol),  col-bol); 

I 

} 

ScIcct(dot  +  count); 

I 


void  TextEdit:  :DelcteTcxt  (int  count)  { 
int  d  =  dot; 
int  c  «  count; 
while (c> 0)  I 
d  =  text“>NextCharacter(d); 

“C; 

} 

while  (c  <  0)  I 

dot  s=  tcxt->PreviousCharactcr(dot); 

++c; 

} 

count  =  d  -  dot; 

int  sline  =  text->LineNumbcr(dot); 
int  fline  =  tcxt->LineNumber(d); 
text->Dclete(dot,  count); 
if  (sline  =  fline)  { 

int  offset  =  text->LineOffset(dot); 
display “>DeIeteText(sUne,  offset,  count); 

}  else  { 

int  bol  =  tcxt->BcginningOfLinc(dot); 
int  col  =  text->EndOfLine(dot); 
display->DclctcLinesAftcr(sHne,  fline-sline); 
display->ReplaccText(slinc,  tcxt->Tcxt(bol,  col),  col-bol); 

} 

Sclect(dot); 

I 

voidTcxtEdit::DelcteRestOfLinc  0  { 

if  (dot  ■=  mark)  { 

int  bol  =  tcxt->BcginningOfLinc(dot); 
if  (dot  ==  bol)  I 

Sclcct(dot,  tcxt->BcginningOfNcxtLinc(dot)); 

)  else  { 

Sclect(dot,  tcxt->EndOfLinc(dot)); 

) 

} 

Del  eteS  cl  ection  0; 

} 

void  TextEdit:  :DelctcSclcction  ()  { 
if  (dot  1*  mark)  { 

DclctcTcxt(mark  -  dot); 

} 


voidTcxtEdit::BcginningOfLine  0  { 
if  (dot !»  mark)  ( 


Select{min (marie,  dot)); 

}  else  { 

S  elect(text->B  eginningOflin  c(dot)); 

} 


void  TextEdit:  lEndOfLine  0  { 
if  (dot  1-  mark)  { 

Sclcct(max(mark,  dot)); 

}  else  { 

S  elect(tcxt->EndOfLine(dot)); 


void  TextEdit:  iForwardCharactcr  (int  count)  { 
if  (dot  !=  mark)  { 

Se!ect(max(mark,  dot)); 

I  else  { 
int  d  =  dot; 
while  (count  >  0)  { 

d  =  tcxt->NcxtCharacter(d); 

-count; 


Select(d); 

} 

} 


void  TextEdit:  JBackwardCharacter  (int  count)  { 
if  (dot  !=  mark)  { 

Sclect(min(mark,  dot)); 

)  else  { 
int  d  =  dot; 
while  (count  >  0)  { 

d  =  tcxt->PrcviousCharactcKd); 

—count; 

} 

Selcct(d); 

} 


void  TextEdit: .ForwardLine  (int  count)  { 
if  (dot  !=  mark)  { 

Sclect(max(maik,  dot)); 

}  else  ( 
int  d  «  dot; 
while  (count  >  0)  { 

d  *  tcxt->BcginningO£NextLinc(d); 
-count; 

1 

S  elect  (d); 

} 

1 


void  TextEdit: :BackwardLine  (int  count)  { 
if  (dot  |b  mark)  { 

Sclcct(min(mark,  dot)); 

I  else  { 
int  d  B  dot; 
while  (count  >  0)  { 

d  =  tcxt->BcginningOfLine(tcxt->EndOfPrcviousLine(d)); 
—count; 


Select(d); 

1 

I 

void  TextEdit; :S elect  (int  d)  { 
Sclect(d,  d); 

) 

void  TextEdit: :SclcctMorc  (int  m)  { 
Sclect(dot,  m); 

I 


void  TextEdit:  :SclectLine  ()  { 

Select(tcxt->BcginningOfLine(dol),tcxt->BcginningO£NextLinc(dot)); 
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) 


void  TextEdit:  rSelcctWord  ()  { 
int  left  *  min(maric,  dot); 
int  right  S5  max(mark,  dot); 

Select(text->BcginningOfWord{tcxt->PreviousCharactcrGeft)),  right); 

I 

void  TcxtEdit::Sclect  (int  d»  int  m)  { 
int  oldl  -  min(dot^  marit); 
int  oldr  =  max(dot,  marie); 
int  ncwl  =  min(d,  m); 
int  newr  =  max(d,  m); 
if  (oldl  ==  oldr  ncwl  !*=  newr)  { 
display->CarctStylc(NoCaret); 

} 

if  (newr  <  oldl  tl  ncwl  >  oldr)  { 
if  (oldr  >  oldl)  I 

dispIay->RcmoveStylc( 

tcxt->LincNumbcr(o  Idl),  tcxt->LincOf fs  ct(oldl) , 
tcxt->LincNumber(oldr“  1 ) ,  tcxt‘>LineOffset(old  r- 1 ) , 

Reversed 

); 

} 

if  (newr  >  ncwl)  { 
display->AddStyIc( 

tcxt->LincNumbcr(newl),  tcxt->LineOffset(ncwl) , 
tcxt->IincNumbcr(newr”  1 ),  tcxt->LmeOffsct(ncwr- 1 ), 
Reversed 

); 


}  else  { 

if  (ncwl  <  oldl)  i 
display->AddStylc( 

tcxt->LincNumbcr(ncwl) ,  text->LincOfFsct(ncwl) , 
tcxt->LincNiimbcr(oldl- 1 ) ,  tcxt->LincOffset(old!- 1 ) , 
Reversed 


); 


}  else  if  (ncwl  >  oldl)  { 
display->RcmovcStylc( 

tcxt->LincNumber(oldI),  tcxt->LineOffset(oldl)» 
tcxt‘>LincNumbcr(ncwl- 1 ) ,  tcxt->LineOfFset(ncwl“  1 ) , 
Reversed 


); 


if  (newr  >  oldr)  { 
display->AddStylc( 

tcxt->LincNumbcr(oldr).  tcxt->LineOffsct(oldr) , 
tcxt>>LineNumbcr(ncwr“  1 ) ,  tcxt->LineOffset(newr- 1 )« 
Reversed 

); 

)  else  if  (newr  <  oldr)  ( 
display‘>RcmoveStyle( 

tcxt->LineNumbcr(newr),  tcxt->LincOff5Ct(ncwr), 
tcxt->LineNiimber(oIdr- 1 ) ,  tcxt“>LincOffsct(oldr- 1 ) , 
Reversed 

); 

I 

) 

if  (oldl  !«  oldr  &&  ncwl  «=  newr)  { 
displa  y->CarctStyle(BaTCaret); 

) 

if  (newl  newr)  { 

disp  lay->Carct(tcxt‘>LincNumbcr(ncwl) ,  tcxt->LincOffset(ncwl) ) ; 

) 

dot  «=  d; 
mark  -  m; 

) 


boolean  TextEdit: rContains  (Coord  x.  Coord  y)  { 
Transformer  tr(output->GctTransformerO); 
lr.InvTransform(x»  y); 
int  line  «  display->LineNumber(y); 
int  index  *  display->LincIndcx(linc,  x); 

return 
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X  >ss  display->Lcft(iinc,  text‘>BcginningOfLine(index))  && 
X  <=  display->Right(Iinc,  tcxt->l^dOfLinc(index))  && 
y  >=  display->BaseOinc)  && 
y  <=  display->TopGine); 


int  TextEdit:  :Locatc  (Coord  x,  Coord  y)  { 
Transformer  tr(ou^irt->GctTransfonneK)); 
tr.InvTransfonn(x»  y); 
int  line  »=  display->LineNuLmber(y); 
int  index  =  display->Lmelndex(line,  x); 
int  1  =  tcxt->LineIndex(line); 
inti=0; 

while  (i  <  index)  { 

1  =  tcxt->NextCharactcr(I); 
i+=l; 

I 

return  1; 

} 


tools,  h 

tifadef  tools_h 
#define  tools_h 

#include  "pancLh" 

//  Declare  imported  types. 

class  Editor; 
class  MapKcy; 

//  A  Tools  displays  several  drawing  tools  to  choose  from. 

class  Tools  :  public  Panel  { 
public: 

Tools  (Editor*,  MapKey*); 
void  Handlc(Event&); 
protected: 

void  Init(Editor*,  MapKey*); 
void  RcconfigO; 


#endif 


tools.c 

#include  “editonh" 

#include  ’ 'keystrokes,  h" 

#include  ’'mapkcy.h'' 

#inciude  "tools.h" 

#include  ■dntcrViews/box.h> 

#include  <InterVicws/evaith> 

#inc]ude  <InterVicws^aintcrii> 

#include  <IntcrViews/shapc.h> 

#includc  <dntcrVicws/Std/stringdi> 

//  An  IdrawTool  enters  itself  into  the  MapKey  so  Idraw  can  send 
//  a  KeyEvent  to  the  right  IdrawTool. 

class  IdrawTool :  public  Panelltem  { 
public: 

IdrawTool  (Panel*,  const  char*,  char.  Editor*,  MapKey*); 
protected: 

Editor*  editor;//  handles  drawing  and  editing  operations 


//  IdrawTool  stores  the  editor  pointer  and  alters  itself  and  its 
//  associated  character  into  the  MapKey. 

IdrawTool rJdrawTool  (Panel*  p,  const  char*  n,  char  c,  Editor*  e, 
MapKcy*  mapkey) :  Panelltem(p,  n,  mapkey->ToStr(cX  c,  c) 

( 

editor  =  e; 

mapkcy->Enter(this,  c); 

} 


//  A  SelectTooI  selects  a  set  of  Selections. 


class  SelectTooI  :  public  IdrawTool  { 
public: 

SelectTooI  (Panel*  p,  Editor*  c,  MapKey*  mk) 

:  IdrawTooKp,  "Select",  SELECTCHAR,  e,  mk)  { } 
void  SetMessageO 
{ 

str(^y(msg,  "pick  object  with  LMB  or  hold  down  button  to  draw  rectangle"); 

strcat(msg,  "  around  more  than  1  object"); 

cditor->ResetMessagc(msg); 

} 

void  Perforai  (Event&  e)  { 
cditor->HandleSclcct(c) ; 


}; 


//  A  MoveTool  moves  a  set  of  Selections. 

class  MoveTool :  public  IdrawTool  { 
public: 

MoveTool  (Panel*  p,  Editor*  c,  MapKcy*  mk) 

:  IdrawTooKp,  "Move",  MOVECHAR,  e,  mk)  { } 
void  SetMessageO 
{ 

strcpy(msg,  "pick  object  with  LMB"); 
cditor->RcsctMcssagc(msg); 

} 

void  Perform  (Evait&  e) 

editor->HandleMove(c); 

} 


//  A  DecomposeTool  will  open  new  graphic  editor  for  lower  level  of  DFD 

class  DecomposeTool :  public  IdrawTool  { 
public: 

DecomposeTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  IdrawTooKp,  "Implcmcnt/Decomposc",  DECOMPOSECHAR,  c,  mk)  { ) 
void  SetMessageO  I 
strep  y(msg, 

"pick  operator  with  LMB"); 
cditor->ResetMessage(msg) ; 

) 

void  Perfoma  (Evcnt&  e)  { 
cdiior'>HandlcDccompose(c); 

} 

}; 


//  A  CommwitTool  draws  some  text 

class  CommentTool :  public  IdrawTool  | 
public: 

CommentTool  (Panel*  p.  Editor*  c,  MapKey*  mk) 

:  IdrawTool(p,  'TitleAimmcnt",  COMMEOTCRAR,  e,  mk)  { } 
void  SetMessageO  { 
strcpy(msg. 
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"click  outside  of  objects  to  add  text"); 
editor-  >RcsetMessage(msg) ; 

I 

void  Perform  (Evcnt&  e)  | 
editor->HandleText(e) ; 

} 

}; 


//  A  LabelToo!  draws  some  text  for  one  of  the  components  of  the  DFD 

class  LabelTool  :  public  IdrawTool  ( 
public: 

LabelTool  (Panel*  p,  Editor*  e,  MapKey*  mk) 

:  IdrawTool(p,  "Label",  LABELCHAR»  e,  mk)  { ) 
void  SetMessageO  { 

strcpy(msg,"pick  object  with  LMB,  add  text,  then  click  outside  objects"); 
editor->ResctMessage(msg); 

} 

void  Perform  (Event&  c)  { 
cditor->HandlcLabcl  (e); 


I; 


//  A  TriggerilfTool  draws  some  text  for  one  of  the  con^onents  of  the  DFD 

class  IfTool :  public  IdrawTool  { 
public: 

IfTool  (Panel*  p,  Editor*  e,  MapKey*  mk) 

;  IdrawTool(p,  ’Trigger  If,  IFCHAR,  e,  mk)  { } 
void  SetMessageO  | 

strcpy(msg,"pick  object  with  LMB,  add  text,  then  click  outside  objects"); 
cditor->ResctMessage(msg); 

} 

void  Perform  (Event&  e)  { 
cditor->HandlcIf(c); 

) 


//  A  TriggeiBYALLTool  draws  some  text  for  one  of  the  components  of  the  DFD 

class  By_AllTool :  public  IdrawTool  { 
public: 

By_AnTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  IdrawTool (p.  'Trigger  By  All",  BYALLCHAR,  e,  mk)  { } 
void  SetMessageO  { 

strcpy(msg,"pick  object  with  LMB,  add  text,  then  click  outside  objects"); 
edi  tor->ResetMessage(msg); 

I 

void  Perform  (Evcait&  e)  { 

//edi  tor->Hand  leBy_Al  1  (e) ; 

) 


//  A  Triggcrfi  Y_SOMETool  draws  some  text  for  one  of  the  components  of  the  DFD 

class  By_SomcTool :  public  IdrawTool  { 
public: 

By_SomcTool  (Panel*  p,  Editor*  c,  MapKey*  mk) 

:  IdrawTool(p,  'Trigger  By  Some",  BYSOMECHAR,  e,  mk)  { } 
void  SetMessageO  { 

strcpy(msg,"pick  object  with  LMB,  add  text,  then  click  outside  objects"); 
editor->RcsctMcssagc(msg); 

I 

void  Perform  (Evcnt&  c)  { 

//  editor- >HandleBy_Somc(c); 

} 


//  A  HourTool  adds  the  maximu  execution  of  the  operator  to  the  drawing 

class  HourTool :  public  IdrawTool 

{ 

public: 

HourTool  (Panel*  p,  Editor*  c,  MapKey*  mk) 
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:  IdrawTooKp,  "HOUR  "  ,  HOURCHAR,  c,  mk)  { ) 
void  SctMcssageO 
I 

strcpy(msg, 

"pick  operator  with  LMB,  add  text,  then  click  outside  object"); 
edito  r“>RcsctMcssagc(msg) ; 

} 

void  Pcrform(Evait&  e) 

{ 

cditor->HandleMET(c ,  hours"); 

} 


//  A  HourLTool  adds  the  maximu  execution  of  the  STREAM  to  the  drawing 
class  HourLTool :  public  IdrawTool 

I 

public: 

HourLTool  (Panel*  p.  Editor*  c,  MapKcy*  mk) 

:  IdrawTool(p,  '•HOUR  "  ,  LHOURCHAR,  c,  mk)  | } 
void  SetMcssageO 
i 

strcpy(msg, 

"pick  operator  with  LMB,  add  text,  then  click  outside  object"); 
edito  r->RcsetMessage(msg) ; 

) 

void  Pcrform(Event&  c) 

I 

edito r->HandlcLatcncy(c ,  "  hours"); 


//  A  MinutcTool  adds  the  maximu  execution  of  the  operator  to  the  drawing 
class  MinutcTool :  public  IdrawTool 

I 

public; 

MinutcTool  (Panel*  p,  Editor*  e,  MapKcy*  mk) 

:  IdrawTool (p,  "Minute  "  ,  MINUTECHAR,  c,  mk)  { | 
void  SetMcssageO 
I 

strep  y(msg, 

"pick  operator  with  LMB,  add  text,  then  click  outside  object"); 
editor->RcsctMessage(msg); 

) 

void  Perform (Evcnt&  e) 

I 

cditor->HandlcMET(c , "  min"); 

} 


//  A  MinutcLTool  adds  the  maximu  execution  of  the  STREAM  to  the  drawing 

class  MinutcLTool :  public  IdrawTool 

{ 

public; 

MinutcLTool  (Panel*  p.  Editor*  c,  MapKey*  mk) 

:  IdrawTool(p,  "Minute  "  XMINUTECHAR,  c,  mk)  { } 
void  SetMcssageO 
I 

strcpy(msg, 

"pick  operator  with  LMB,  add  text,  thwi  click  outside  object"); 
edito  r*>ResctMcssage(msg) ; 

) 

void  Pcrform(EvCTU&  c) 

i 

cditor->HandlcLatcncy(c , "  min"); 

) 


//  A  SccTool  adds  the  maximu  execution  of  the  operator  to  the  drawing 
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class  SecToo! :  public  IdrawTool 

{ 

public: 

SccTool  (Panel*  p,  Editor*  c,  MapKey*  mk) 

:  IdrawTool (p,  “Second  "  ,  SECONDCHAR,  e,  mk)  { } 
void  SetMessageO 
{ 

strcpy(msg, 

“pick  operator  with  LMB,  add  text,  then  click  outside  object"); 
cdito  r->RcsctMessagc(msg) ; 

I 

void  Perform  (Evcnt&  e) 

{ 

editor->HandleMET(e , "  sec"); 

I 

); 


//  A  SecLToo!  adds  the  maximu  execution  of  the  STREAM  to  the  drawing 

class  SecLTooI :  public  IdrawTool 

{ 

public: 

SecLTooI  (Panel*  p,  Editor*  e,  MapKcy*  mk) 

:  IdrawTool (p,  "Second  "  ,  LSECONDCHAR,  e,  mk)  { } 
void  SetMessageO 
I 

strcpy(msg, 

“pick  operator  with  LMB,  add  text,  then  click  outside  object"); 
cditor->RcsctMcssagc(msg) ; 

) 

void  Pcrform(Event&  e) 

I 

cditor->HandlcLatency(e , "  sec"); 

I 


//  A  MilSecTool  adds  the  maximu  execution  of  the  operator  to  the  drawing 
class  MilSecTool :  public  IdrawTool 

i 

public: 

MilSecTool  (Panel*  p,  Editor*  c,  MapKey*  mk) 

:  IdrawTool(p,  "MilHSecond  "  ,  MILSECCHAR,  e,  mk)  { | 
void  SetMessageO 
{ 

strcpy(msg, 

"pick  operator  with  LMB,  add  text,  then  click  outside  object"); 
cditor->  ResctMessage(msg) ; 

I 

void  Perform  (Event  &  c) 

{ 

edito!^>HandleMET(e , "  ms"); 

I 


//  A  MilSccLTool  adds  the  maximu  execution  of  the  STREAM  to  the  drawing 
class  MilSecLTool  :  public  IdrawTool 

I 

public: 

MilSccLTool  (Panel*  p,  Editor*  c,  MapKey*  mk) 

:  IdrawTool(p,  "MilliSecond  "  ,  LMILSECQHL^R,  c,  mk)  { } 
void  SetMessageO 
I 

slTcpy(msg, 

"pick  operator  with  LMB,  add  text,  then  click  outside  object"); 
cditor“>RcsetMcssagc(msg) ; 

I 

void  Perform  (Evait&  c) 

I 

editor->HandlcLatency(e , "  ms"); 

I 
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); 


//  A  MicroSecTool  adds  the  maximu  execution  of  the  operator  to  the  drawing 

class  MicroSecTool  :  public  IdrawToo! 

( 

public; 

MicroSecTool  (Panel*  p.  Editor*  c,  MapKcy*  mk) 

:  IdrawTool(p,  "us  " ,  MICSECCHAR,  e»  mk)  ( } 
void  SetMcssageO 
{ 

strcpy(msg, 

"pick  operator  with  LMB,  add  text»  thai  click  outside  object"); 
edito  r->RcsetMessagc(msg) ; 

} 

void  Pcrform(Evcnt&  e) 

I 

editor->HandlcMET(e » "  microscc"); 

) 


//  A  MicroSccLTool  adds  the  maximu  execution  of  the  STREAM  to  the  drawing 

class  MicroSecLTooI :  public  IdrawTool 

{ 

public; 

MicroSccLTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

:  IdrawTool (p,  "us  " ,  LMICSECCHAR,  c,  mk)  { } 
void  SetMcssageO 
{ 

strep  y(msg, 

"pick  operator  with  LMB,  add  text,  then  click  outside  object"); 
edito  r->ResetMcssagc(msg); 

} 

void  Pcrform(Event&  e) 

I 

edito r->HandleLatcncy(e ,  "  microscc"); 

) 


//  A  BSplincTool  draws  an  open  B-spline. 

class  BSplincTool ;  public  IdrawTool  { 
public; 

BSplincTool  (Panel*  p.  Editor*  e,  MapKey*  mk) 

;  IdrawTool(p,  BSPUNECHAR,  e,  mk)  { ) 
void  SetMcssageO  { 
strcpy(msg, 

"click  LMB  at  each  spot  to  place  segment  of  spline"); 
cditor->RcsetMessag^msg) ; 

) 

void  Perform  (Evcnt&  e)  { 
cditor->Hand  IcBS  pline(e); 

I 

protected: 

void  Redraw  (Coord  1,  Coord  b,  Coord  r.  Coord  t)  ( 
IdrawTool ::Rcdraw(l,  b,  r,  t); 
const  int  N  «  4; 

Coord  x[N]; 

Coord  y[N]; 

x[0)  =  offx  +  side  *  1/5; 

y[0]  =  offy  +  side  ♦  4/5; 

x[l]  «  offx  +  side*  1/2; 

y[l]  **  offy  +  side  *  4/5; 

x(2]  »  offx  +  side  ♦  1/2; 

yi2]  =  offy  +  side  *  1/5; 

xI3]  :=  offx  +  side  *4/5; 

y[31  =  offy  +  side  *  1/5; 

output’>BSpline(canvas,  x,  y,  N); 

) 

I; 


//  An  EllipseTool  draws  an  ellipse. 
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class  EUipseTool :  public  IdrawTool  { 
public: 

EUipseTool  (Panel*  p,  Editor*  e,  MapKey*  mk) 

:  IdrawToolQp,  ELLJPSECHAR,  c»  ni)  { } 
void  SetMessage()  { 
strep  y(msg, 

"click  with  LMB  to  draw  operator  centered  at  that  point"); 
cditor->ResetMcssagc(msg) ; 

) 

void  Perform  (Evcnt&  e)  { 
editor->HandlcEUipse(e); 

} 

protected: 

void  Redraw  (Coord  1,  Coord  b.  Coord  r,  Coord  t)  { 
IdrawTool ::Redraw(l,  b,  r,  t); 

Coord  xO  =  offx  +  side  *  1/2; 

Coord  yO  =  offy  +  side  *  1/2; 

Coord  xradius  =  side  *  1/3  +  side  *  1/16; 

Coord  yradius  =  side  *  1/3  -  side  *  1/16; 
output->Ellipse(canvas,  xO,  yO,  xradius,  yradius); 

} 

}; 


//  A  ReetTool  draws  a  rectangle. 

class  ReetTool  :  public  IdrawTool  { 
public: 

ReetTool  (Panel*  p,  Editor*  c,  MapKcy*  nJe) 

:  IdrawTool(p,  RECTCHAR,  e,  mk)  { } 
void  SetMessageO  { 
strcpy(msg, 

"click  with  LMB  to  draw  terminator  centered  at  that  point"); 
cditor->ResctMcssage(msg) ; 

} 

void  Perform  (Event&  e)  { 
edito  r->HandlcRect(e) ; 

} 

protected: 

void  Redraw  (Coord  1,  Coord  b,  Coord  r,  Coord  t)  { 
IdrawTool ::Rcdraw(I,  b,  r,  t); 

Coord  xO  =  offx  +  side  *  1/5; 

Coord  yO  =  offy  +  side  *  1^; 

Coord  xl  offx  +  side  *  4^; 

Coord  yl  =  offy  +  side  *  4/5; 
output- >Rect(canvas,  xO,  yO,  xl,  yl); 

I 


//Tools  creates  its  tools. 

Tools:  :Tools  (Editor*  e,  MapKcy*  mk)  { 
lnit(c,  mk); 

1 


//  Handle  tells  one  of  the  tools  to  perform  its  function  if  a 
//  DownEvent  occurs. 

void  Tools::Handlc  (Evcnt&  c)  { 
switch  (c.cventType)  { 
case  DownEvCTt: 
switch  (c.button)  { 
case  LEFTMOUSE; 

Perf ormCu  rrentFunctionfe); 
break; 

caseMIDDLEMOUSE: 

PcrformTemporaryFunction(e,  MOVECHAR); 
break; 

case  RIGHTMOUSE: 

PcrformTcmporaryFunction(c,  SELECTCHAR); 
break; 
default: 

break; 

I 


default: 


break; 

) 

} 

//  Init  creates  the  tools,  lays  them  together,  and  inserts  than. 

void  Tools:;Init  (Editor*  c,  MapKey*  mk)  { 

PancUtem*  first  =  new  SelectTool(this,  c,  mk); 

VBox*  tools  =  new  VBox; 
tools->Inscit(first); 

/Aools  ->  Insert(new  PropertyTool(this,  c,  mk  )); 
tools->Insert(ncw  MoveTool(this,  c,  mk)); 

//  tools->Insert(new  ModifyTool(this,  e,  mk)); 
/Aools->Inscrt(ncw  Specif yTool  (this,  e,  mk)); 

tools->Inscrt(ncw  DccomposeTool(this,  e,  mk)); 
tools->lnscit(new  CommentTool(this,  c,  mk)); 

Enter(new  HourTool  ( this,  c,  mk),  HOURCHAR  ); 
Enter(new  MinutcTool  ( this,  e,  mk),  MINUTEQHlAR); 
Entcr(ncw  SecTool  ( this,  e,  mk),  SECONDCHAR); 
Enter(ncw  MilSecTool  ( this,  e,  mk),  MILSECCHAR); 
Enter(ncw  MicroSecTool  ( this,  e,  mk),  MICSECCHAR); 


Enter(ncw  HourLTool  ( this,  e,  mk),  LHOURCHAR  ); 
Enter(ncw  MinutcLTool  ( this,  e,  mk),  LMINUTECHAR); 
Entcr(ncw  SecLTool  ( this,  e,  mk),  LSECONDCHAR); 

Entcr(new  MilSecLTooI  ( this,  c,  mk),  LMILSECCHAR); 
Enlcr(new  MicroSecLTool  ( this,  e,  mk),  LMICSECCHAR); 


//  This  part  is  for  Trigger  If/By_All/By_Some 

Enter  ( new  IfTooI  ( this,  e,  mk),  IFCHAR); 

Enter  ( new  By_AHTool  ( this,  e,  nik),  BYAIXCHAR); 
Enter  ( new  By_SomcTool  ( this,  e,  mk),  B YSOMECHAR); 


tools->Insert(new  BSplineTooI(this,  e,  mk)); 
tools->Insert(new  EllipseTool(this,  c,  mk)); 
lools->Insejt(new  RectTool(this,  e,  mk)); 

//  tools‘>Inscrt(new  Labc!Tool(this,  e,  mk)); 

Enter(new  LabelTooKthis,  c,  mk),  LABELCHAR); 

Insert(tools); 

//  Reconfig  makes  Tools's  shape  unstretch  able  but  shrinkable. 

void  Tools :;Reconfig  ()  { 

Pancl::ReconfigO; 
shapc“>Rigid(0, 0,  vfil,  0); 

) 
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